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1 .  INTRODUCTION 


A  series  of  algorithms  have  been  developed  that  provide  automatic 
objective  analysis  of  digital  Doppler  radar  data.  Crane  (1979)  described 
the  radar  cell  detection  and  tracking  routine  that  is  employed  in  the 
current  computer  program.  Regions  of  interest  observed  with  the  radar  are 
located  by  contouring  the  reflectivity  field  at  the  20  dBZ  level.  Within 
a  contour  region,  relative  peaks  in  the  reflectivity  or  Doppler  change 
(shear)  fields  are  located  and  subjected  to  a  multi-threshold  contouring 
routine.  Peak  areas  that  are  isolated  by  a  contour  which  is  3  quantiza¬ 
tion  steps  (dB  for  reflectivity)  below  the  peak  value  are  declared  cells. 

For  each  cell  and  contour  region  a  set  of  attributes  is  accumulated  which 
describe  the  characteristics  of  that  entity.  Peak  cells  detected  at 
different  elevation  angles  in  a  volume  scan  sequence  are  used  to  con¬ 
struct  three-dimensional  volume  cell  structures  over  which  composite  sets 
of  attributes  are  accumulated.  The  volume  cell  becomes  the  smallest 
resolvable  entity  in  the  hierarchy  that  is  developed  to  characterize  the 
meteorological  situation  being  observed. 

Individual  cell  motion  is  established  by  associating  volume  cells 
detected  on  successive  volume  scans  and  tracking  their  centroid  positions. 
Cell  association  is  performed  through  a  comparison  of  key  attribute  values 
and  selection  is  made  through  a  statistical  best  match  function.  The 
resultant  velocity  vectors  must  conform  fo  a  Lagrangian  tracking  scheme 
wherein  a  more  precise  track  fit  is  required  of  longer  lived  cells. 

Closely  spaced  volume  cells  that  interact  are  declared  clusters  and 
are  tracked  as  a  single  entity.  Volume  cells  that  have  a  high  reflectivity 
and  some  degree  of  vertical  continuity  are  considered  to  be  important  and 
are  called  significant  cells.  Isolated  significant  cells  are  classified 
as  clusters  that  the  radar  was  unable  to  resolve.  The  individual  cells 
enclosed  within  clusters  and  contours  are  used  to  compute  the  motion  and 
other  attributes  of  the  larger  entities  such  as  their  physical  extent, 
centroid  location  and  lifetime. 

At  the  completion  of  each  volume  scan  sequence,  the  computed  attributes 
compiled  over  the  scan  are  output.  Within  the  output  hierarchy  of  contours, 
clusters  and  volume  cells,  each  entity  is  assigned  a  unique  identification 
number  which  it  maintains  throughout  its  lifetime.  Each  cell  carries  two 
attributes  that  point  upward  to  identify  the  enclosing  cluster  and  contour 
./on. 
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An  operational  version  of  the  cell  detection  and  tracking  routine  was 
used  to  analyze  non-coherent  digital  radar  data  on  the  Water  and  Power 
Resources  Service  (WPRS)  Cyber-74  computer  system  (Gustafson,  1980) .  This 
program  was  initially  modified  to  process  Doppler  data  on  the  same  computer 
(Crane,  1981).  In  the  Cyber-74  version,  a  single  Doppler  attribute,  tan¬ 
gential  shear,  was  extracted  and  processed  to  form  tangential  shear  cells. 
The  shear  cells  were  detected  by  using  the  magnitude  of  tangential  shear 
in  exactly  the  same  way  reflectivity  cells  had  been  formed  using  the  magni¬ 
tude  of  the  reflectivity  level.  An  identical  attribute  set  was  formed  for 
each  type  (reflectivity  or  tangential  shear)  of  cell  which  was  then  trans¬ 
ferred  to  the  track  routine  where  the  cells  were  associated  without  regard 
to  type. 

The  Doppler  processing  routine  described  in  this  report  is  an  expan¬ 
sion  of  the  initial  operational  routines.  It  is  designed  to  operate  on  a 
VAX  11/780  computer  in  near  real  time.  The  algorithm  descriptions  in  this 
report  primarily  cover  modifications  to  the  program  versions  documented  by 
Crane  (1979)  and  Gustafson  (1980) . 
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2.  THE  ALGORITHMS  AND  THEIR  USE 


2.1  Calibration 

Two  separate  subroutines  are  available  to  accept  and  calibrate  raw 
integrator  data  from  the  radars  in  Cimarron  and  Norman,  Oklahoma.  The 
calibration  procedure  is  essentially  identical  for  the  two  radars,  the 
only  differences  being  the  capability  to  handle  the  two  formats  of  the 
raw  data  tapes  (listed  in  Appendix  I>)  and  the  integrator  level/received 
power  look-up  tables.  Three  parameters  are  prepared  by  the  calibration 
routines  which  are  then  passed  to  the  cell  detection  and  tracking  program, 
these  are:  Reflectivity,  Radial  Velocity  and  the  Second  Moment  of  the 
Radial  Velocity  (Doppler  Spread).  A  new  data  set  containing  pre-cal ibrated 
data  in  a  form  directly  accessable  by  the  cell  detection  and  tracking 
program  can  be  prepared  by  passing  a  flag  to  the  calibration  routine  (refer 
to  Appendix  A).  Thereafter,  all  runs  of  the  program  on  that  data  set 
should  use  the  routine  "EXPAND"  in  place  of  the  calibration  routine  in 
order  to  input  the  prepared  data. 

Raw  radar  data  tapes  contain  received  power  information  in  the  form 
of  integrator  levels  set  at  the  radar  site.  To  convert  this  information 
into  a  reflectivity  level  in  dBZ  the  integrator  level  is  converted  to  power 
in  dBm  by  a  table  look-up  and  then  plugged  into  the  equation: 

Z  =  PR  ♦  10  log1()  R2  -  10  log10  PT  ♦  C  (1) 

where  2  is  reflectivity  in  dBZ,  P^  is  received  power  in  dBm  which  is 
obtained  from  the  calibration  table,  R  is  range  in  km,  P^  is  transmitter 
power  in  Kw  and  C  is  a  calibration  constant.  The  computed  reflectivity  is 
then  smoothed  over  a  user  defined  number  of  range  gates  (generally  two). 

The  magnitude  of  the  Doppler  parameters  is  extracted  directly  from  the 
data  tapes  and  calibrated  by  Equation  (2)  for  radial  velocity  and  Equation 
(3)  for  Doppler  spread: 

RV  =  (Lj  -  R/2)  Rv  (2) 

where  RV  is  radial  velocity  in  m/s,  Lj  is  integrator  level,  R  is  the  range 
of  integrator  levels  and  Ry  is  the  velocity  resolution  in  m/s. 
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(3) 


ns  =  Rs2  (1- (1  -  i.j 2)  PR/(PR  -  Nj  ] 

where  ns  is  Doppler  spread  (m/s)  ,  Rg  is  the  spread  resolution  in  m/s, 
is  the  integrator  level,  PR  is  received  power  in  dBm  and  N  is  the  average 
receiver  noise  in  dBm. 

The  Doppler  information  has  an  inherent  frequency  ambiguity  that  the 
algorithm  will  resolve  in  one  of  two  ways  depending  on  the  integrator  mode 
in  use  at  the  time  measurements  were  made.  In  the  expanded  integrator 
mode  the  Doppler  data  are  collected  at  a  PRF  which  is  four  times  greater 
than  that  used  to  obtain  the  reflectivity  data.  The  correct  range 
interval  is  determined  through  an  evaluation  of  the  corresponding  reflec¬ 
tivity  levels  at  each  of  the  folded  range  intervals.  Normal  integrator 
data  are  collected  at  a  constant  PRF  and  the  range  interval  is  determined 
by  the  Nth  trip  indicator  that  is  operator  selectable. 

Independent  of  integrator  type,  the  first  few  range  gates  of  each  fold 
(range  interval)  are  eliminated  from  processing  to  minimize  the  effects  of 
close  in  ground  clutter.  Further,  each  of  the  three  output  parameters  are 
subjected  to  noise  thresholding  at  each  range  gate  along  the  radial. 
Calibrated  data  are  then  passed  to  the  cell  detection  routine  through  block 
common. 

2.2  Contouring  and  Cell  Detection 

Calibrated  reflectivity  data  along  each  radial  are  contoured  through 
a  nested  search  routine  at  two  predefined,  fixed  threshold  levels.  A  base 
level  of  20  dBZ  is  used  to  define  regions  in  the  data  field  within  which 
the  cell  detection  algorithms  will  be  run.  A  second  user  defined  level  is 
available  for  display  purposes  only.  As  each  radial  of  data  is  contoured 
a  vector  is  defined  to  connect  the  contour  endpoints  on  the  current  radial 
to  the  corresponding  endpoints  on  the  prior  radial.  Each  new  vector  is 
assigned  the  identification  (ID)  number  of  any  previously  defined  vector 
it  connects  with.  Vector  elements  tagged  with  their  ID  and  threshold 
level  are  accumulated  in  a  temporary  disk  file  over  the  entire  azimuth 
scan.  Similarly,  merges  and  splits  of  contour  segments  are  stored  in  a 
directory  as  they  occur.  After  an  entire  scan  has  been  processed,  each 
vector  ID  is  passed  through  the  merge/split  directory  and  reassigned  a 
final  contour  ID.  Vectors  with  a  common  contour  ID  are  then  linked  to 
construct  a  full  contour. 
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Within  the  20  dBZ  contour  regions,  cell  detection  is  performed 
separately  on  the  reflectivity  and  Doppler  data  fields.  Five  Doppler 
parameters  are  available  for  processing;  (1)  tangential  shear,  (2)  radial 
shear,  (3)  vector  shear,  (4)  range  normalized  radial  velocity  magnitude, 
and  (5)  range  normalized  Doppler  spread  (second  moment).  The  magnitude  of 
the  user  selected  Doppler  parameter  is  quantized  into  1-dB  steps  in  order 
to  be  in  a  form  consistent  with  the  reflectivity  data.  The  cell  detection 
algorithm  is  designed  to  locate  peak  regions  in  any  quantized  scalar  data 
field  that  are  at  least  3  dB  above  the  surrounding  data  and  to  declare  them 
peak  cells.  Reflectivity  and  quantized  Doppler  data  are  processed  by  two 
separate  passes  through  the  cell  detection  routine  thereby  generating  two 
peak  cell  data  sets.  Kach  data  set  is  comprised  of  an  identical  cell 
attribute  list  (Table  1)  describing  the  characteristics  of  the  individiaul 
cells.  The  cell  types  are  stored  separately  to  allow  discriminate  process¬ 
ing  by  the  track  routine. 

2.3  Cell  Tracking 

At  the  conclusion  of  an  azimuth  scan,  the  cell  detection  routine  has 
produced  both  reflectivity  and  Doppler  cell  attribute  lists  which  are 
stored  separately.  The  track  routine  attempts  to  associate  individual 
peak  cells  to  a  volume  cell  track  established  during  prior  scans. 

In  previous  versions  of  the  tracking  algorithm  (Gustafson,  1980),  the 
azimuth  scan  sequence  was  assumed  to  have  been  performed  in  an  automatic 
mode.  For  tracking  purposes  a  volume  scan  was  closely  defined  to  be  a 
series  of  full  azimuth  scans  made  in  the  same  direction;  these  scans 
consisted  of  a  fixed  number  of  constant  elevation  steps  requiring  a  fixed 
amount  of  time.  In  order  to  accomodate  data  collection  in  a  non-automatic 
mode,  the  volume  scan  has  been  more  loosely  defined  to  be  a  scries  of  at 
least  two  azimuth  sector  scans  made  in  either  direction  that  require 
greater  than  150  seconds  to  measure.  The  cel  1 -to-track  association 
criteria  have  been  similarly  modified  to  minimize  the  impact  of  the  data 
collection  mode  on  the  tracking  process. 

Of  greatest  impact  is  the  variability  in  elevation  steps  between 
azimuth  scans  that  is  permitted  in  the  new  format.  A  volume  cell  is 
constructed  from  the  association  of  individual  peak  cells  detected  on 
successive  scans  in  a  volume  scan  sequence.  A  large  elevation  gap  between 
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TABLE  I 


PEAK  CELL  ATTRIBUTES 

1  Reflectivity  -  average* 

2  Area 

3  X  1  reflectivity  or  Doppler^ 

4  Y  )  weighted  centroid  position 

5  Cell  ID 

6  Height  (AGL)  at  centroid  position 

7  Range  to  centroid  position 

8  Doppler  Value  -  average 

9  Radial  Velocity  -  average 
10  Doppler  Spread  -  average 


‘average  values  are  computed  over  a  region  enclosed  by  a  contour  set 
3  dB  below  the  peak  magnitude  value 

^position  weighted  by  the  parameter  being  processed,  either 
reflectivity  or  Doppler 


scans  would  normally  cause  the  association  logic  to  reject  the  new  cell 
from  inclusion  in  the  volume  cell  structure.  However,  a  relaxation  of 
the  height  separation  criteria  of  the  association  logic  to  accomodate 
large  elevation  steps  could  cause  invalid  associations  such  as  that  of 
an  immature  cell  at  a  mid  level  with  the  cirrus  overhang  from  a  nearby 
mature  storm.  Clearly  a  trade-off  is  required;  thus,  the  weight  of  the 
height  component  of  the  association  function  is  defined  such  that  a  separa¬ 
tion  of  between  2.5  and  3.0  km  will  make  an  association  difficult  (i.e. 
require  close  agreement  between  the  other  components),  and  a  separation 
greater  than  3  km  will  cause  the  association  to  be  rejected. 

When  a  cell -to-track  association  is  successful  the  volume  cell  attri¬ 
bute  list  is  updated  to  include  the  characteristics  of  the  new  cell.  A 
list  of  the  volume  cell  attributes  is  given  in  Table  2.  Determination  of 
which  individual  attributes  are  selected  for  update  depends  on  the  volume 
scan  sequence  and  the  cell  type.  The  first  seven  attributes  of  the  list 
are  defined  on  the  initial  azimuth  scan  of  each  volume  scan  only  and  are 
used  as  a  reference  to  the  cell  base.  The  spatial  attributes  such  as 
position  and  vertical  extent  are  updated  on  reflectivity  cells  only. 

Doppler  cells  are  themselves  considered  to  be  an  attribute  of  the  volume 
cell,  not  a  part  of  its  physical  structure.  This  is  primarily  due  to  the 
spatial  distribution  of  turbulent  shear  regions  around  an  active  convec¬ 
tive  element  (Crane,  1981).  The  reflectivity  and  shear  peaks  are  not 
generally  coincident;  rather  several  regions  of  high  shear  may  form  in  the 
vicinity  of  one  reflectivity  defined  radar  cell.  Therefore,  the  Doppler 
cells  contribute  to  the  velocity  attributes  only.  Captions  to  the  right 
in  Table  2  indicate  when  each  attribute  is  updated  and  in  which  subroutine 
the  update  occurs . 

Under  one  set  of  conditions  the  segregation  of  Doppler  cells  is  over¬ 
ridden.  An  isolated  Doppler  peak  cell  that  is  detected  outside  the  associa¬ 
tion  range  of  any  reflectivity  cell  is  declared  a  new  volume  cell  and  its 
position  tracked  as  if  it  were  a  reflectivity  cell.  These  isolated  Doppler 
cells  often  occur  at  a  location  that  will,  at  a  future  time,  produce  a 
reflectivity  cell.  Tracking  the  Doppler  cells  in  this  manner  yields  more 
information  about  the  reflectivity  cell  when  it  is  eventually  detected  than 
if  the  isolated  Doppler  cells  were  discarded. 
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TABLE  2 


VOLUME  CELL  ATTRIBUTES 


1 

X 

j  reflectivity  weighted 

2 

Y 

’  centroid  position  (km) 

3 

Z 

average  reflectivity  (dBZ) 

Updated  at  the  beginning  of 
each  volume  scan 

4 

A 

area  (km  ) 

S 

H 

height  (km) 

BTRAK 

6 

D 

Doppler  value  (m/s/km) 

7 

R 

range  (km) 

8 

Cell  track  ID 

9 

Peak  Cell  Count 

10 

Peak  Cells  Below  Height  =  HM 

11 

I 

Z 

12 

I 

Z  •  X 

13 

Z 

z  •  x2 

j  Updated  on  reflectivity  and 

14 

I 

Z  •  Y 

isolated  Doppler  cells  only 

15 

I 

Z  .  Y2 

16 

z 

Z  •  X  .  Y 

ATRAK 

17 

z 

Z  •  A 

18 

z 

Z  •  H 

19 

H 

lowest 

20 

z 

peak 

21 

z 

at  summit  height 

22 

H 

summit 

23 

z 

D 

24 

z 

V:  radial  velocity  (m/s) 

25 

z 

v2 

Updated  on  both  reflectivity 
and  Doppler  cells 

26 

z 

DS:  Doppler  Spread  (m/s) 

27 

z 

DELW:  association  measure 

ATRAK/VTRAK 

28 

spare 

29 

Peak  Doppler  Cell  Count 

30 

Z 

D 

Updated  on  Doppler  cells 

31 

z 

V 

only 

32 

z 

D  •  X 

VTRAK 

2.4  Program  Output 


Data  output  is  generated  at  the  conclusion  of  each  volume  scan  sequence. 

A  sort  routine  creates  a  direct  access  binary  file  that  contains  a  hier¬ 
archical  list  of  all  attributes  defined  or  updated  on  the  current  scan. 
Appendix  C  provides  a  complete  word  description  of  the  output  format.  A 
second  formatted  summary  output  is  available  as  a  user  option  (Appendix  A). 

The  sort  hierarchy  consists  of  (1)  contour  regions,  (2)  enclosed 
cell  clusters,  (3)  volume  cells  contained  in  clusters,  and  (4)  isolated 
volume  cells.  A  two  record  scan  summary  is  provided  as  a  header,  and 
sorted  contour  vector  information  is  appended  as  a  trailer.  Vector  data 
are  sorted  on  (1)  contour  track  ID  and  (2)  threshold  level.  Table  3  gives 
a  schematic  illustration  of  the  sort  file  structure.  A  separate  sort  file 
is  created  at  the  end  of  each  volume  scan.  At  the  conclusion  of  a  program 
run,  the  individual  files  should  be  merged  in  the  order  they  were  created 
to  produce  a  sequential  record  of  the  processed  data  (refer  to  sample 
command  procedure  Figure  4) . 

The  optional  formatted  output  can  be  configured  to  provide  contour, 
cluster,  or  volume  cell  attributes,  or  any  combination  of  these  attribute 
types.  Figure  1  illustrates  a  sample  output  displaying  all  three  data 
types  for  one  volume  scan;  the  listing  sequence  is  repeated  for  each  volume 
scan.  Whenever  a  change  in  PRF  or  integrator  type  is  encountered  in  the 
data,  the  current  volume  scan  is  terminated  and  a  radar  attribute  summary 
(Figure  2)  is  output. 

2.5  Program  Organization 

The  computer  program  consists  of  22  subroutines  with  flow  established 
through  the  main  program  module  "DOPLR80".  Figure  3  (a,b)  illustrates 
how  control  cascades  through  the  subroutines  during  one  volume  scan 
sequence.  Note  that  subroutines  PEAKD  and  COMPARE  process  reflectivity 
and  Doppler  data  separately  and  each  require  two  calls.  The  cell  detection 
process  is  executed  on  each  radial  of  data  (Figure  3a)  whereas  the  cell 
tracking  routines  are  called  once  at  the  end  of  each  azimuth  scan  (Figure  3b). 

Each  subroutine  is  stored  in  a  separate  file  with  the  common 
generic  name  "FOR".  The  complete  program  is  stored  in  an  object  module 
library  referenced  as  "D0PLR80 .OLB" .  This  allows  for  editing  and 
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TABLE  3 


SORT  FILE  STRUCTURE 


Header  Records  (2) 

Contour  Records  (2) 

Cluster  Record  (1) 
Cell  Record  (1) 
Cell 
Cell 

Contour 

Cluster 

Cell 

Cell 

• 

• 

Cell 

Vector  Record  (1) 

Vector 


(Volume  Scan  1 
(Contour  1 

(Enclosed  in  Contour 
(Contained  in  Cluster 


(Contour  2 


(Isolated 


Header  Records  (Volume  Scan  2 


END  OF  DATA 


10 


SCAN  TIME  99  173150  -  173251  001  SCAN  1  A7  -  2.2  TO  1.2  (DEG) 

TRACK  RF  F  TIHE  173049  -  173150  A/M  SCAN  2/2  EL  -  0.2  TO  0.4  <DfO) 

AMD  NOISF  I  F  Of  I  -  106.6  (DBM) 

AMO  TNT  FOR  A 1 OR  4.326 

ISO  SHR  Cl  . US  I  F  RS  4  7 

FIXED  CONTOUR  OUTPUT 

CENTROID  AM  CELL  7  N  N  N  SPR  SPR  0  WTR  AREA  VELOCITY  NEAR  HX  MR  SP 
IRK  I  -  N.  F  .  N.  AM  PK  M  S  C  X  1.  R  FLUX  XSCN  AM  CEI  l  BIST  HI  III  IB 

NO  KM  KM  KM  KM  OB  BB  C  C  I  KM  KM  T  MT/H  KKM2  EM/S  NM/S  KM  KM  NO  NO 

1  7  104  7  107  34  36  1  1  0  0.0  0.0  0  0.02  0.01  0.0  0.0  0.0  1  0  O 

2  4  10  6  13  34  35  1  0  0  0.0  0.0  0  0.00  0,00  0.0  0.0  0.0  0  0  0 

3  160  226  162  228  33  33  1  0  0  0.0  0.0  0  0.04  0.01  0.0  0.0  0.0  6  0  0 

5  147  1 78  1 48  179  35  35  1  1  0  0.0  0.0  0  0.11  0.03  0.0  0.0  0.0  5  0  0 

6  166  205  167  208  34  35  1  0  0  0.0  0.0  0  0.02  0.01  0.0  0.0  0.0  6  0  0 

7  151  159  151  160  43  45  2  2  0  0.0  0.0  0  0.98  0.13  0.0  0.0  0.0  4  0  0 

8  185  18/  179  185  42  49  4  1  0  2.2  9.4  61  2.21  0.34  0.0  0.0  0.0  6  0  0 

9  -4  4  -1  3  58  68  3713  510.810.8  44  52.86  0.51  0.0  0.0  2.7  0  0  0 


VOLUME  CELL.  OUTPUT 

CENTROID  --  -  7  -  -•  HOT  VBAR  CELL  SPACIAl  (TAN)  BOP  RAD  RAD  CS  CN  D  R  R 


TRK 

E. 

N. 

AM 

PK 

I.W 

HI. 

1. 

M 

H 

EM/S 

NM/S 

SPRIT 

A 

( SHR  > 

SPIT 

MEL 

SPIT 

1  R 

T  FI¬ 

0 

E 

E 

NO 

KM 

KM 

DR 

BB 

BB 

DB 

U 

N 

I 

OI  D  ID 

KM 

KM2 

( MBK  ) 

MSK 

M/S 

M/S 

NO 

ND 

F 

E 

J 

1* 

7 

107 

34 

36 

36 

31 

l 

1 

1 

16.0 

5.8 

0.00 

3 . 7 

1.3 

1.1 

1  3 . 4 

9.5 

0 

1 

.1 

9 

.1. 

1 

15 

56 

56 

56 

56 

0 

0 

0 

16.0 

5.8 

0.00 

0.7 

8.2 

14.9- 

19.5 

3.0 

1 

9 

1 

1 

1 

3* 

3 

15 

51 

54 

54 

54 

0 

0 

0 

16.0 

5.8 

0 . 00 

0.8 

4.5 

13.5- 

1  7 . 3 

0.4 

1 

9 

1 

9 

1 

4# 

4 

16 

44 

45 

44 

45 

0 

0 

0 

16.0 

5.8 

0.00 

0 . 9 

5 . 7 

5.7- 

20.4 

1  .8 

1 

9 

-:> 

2 

1 

6* 

6 

18 

54 

56 

56 

51 

0 

0 

0 

16.0 

5.8 

0.00 

0 . 8 

8.0 

5.6 

24 . 2 

3.6 

1 

9 

0 

'■> 

1 

7 

8 

20 

48 

48 

48 

48 

0 

0 

0 

16.0 

5.8 

0 . 00 

1  .  1 

0.0 

0.0 

0.0 

0.0 

1 

9 

0 

1 

1 

215 

5 

-10 

47 

47 

47 

47 

0 

0 

0 

16.0 

5.8 

0.00 

1  .0 

B  .5 

13.0 

0.8 

0.0 

0 

9 

0 

1 

1 

217 

-8 

-9 

58 

58 

58 

58 

0 

0 

0 

16.0 

5.8 

0 . 00 

0.9 

0.0 

0.0 

0.0 

0.0 

0 

9 

0 

1 

1 

218 

-9 

-6 

64 

64 

64 

64 

0 

0 

0 

16.0 

5.8 

0.00 

0 . 5 

3 . 5 

10.1 

22 . 0 

0.0 

0 

9 

0 

1 

1 

220 

-14 

-  1 

68 

68 

68 

68 

0 

0 

0 

16.0 

5.8 

0.00 

0.7 

10.0 

9.8- 

11.8 

0.0 

0 

V 

0 

1 

1 

223  - 

130- 

256 

34 

34 

34 

34 

7 

7 

7 

16.0 

5.8 

0,0021.6 

3 . 7 

0.0 

4.1 

0.0 

0 

0 

1 

0 

1 

CLUSTER  OUTPUT 


CENTROID 

/ 

t 

N 

SPR 

SPR 

ORT 

CNT 

ME! OCT  TY  SHEAR 

MX 

MR 

SP 

Cl  EL 

1  III 

NO 

TRK 

E.  N. 

AM 

PK 

M 

X 

L 

ANG 

ID 

AM  CELL 

MSKM 

11 T 

ID 

ID 

KOI  . 

DIM. 

RB 

NO 

KM  KM 

DB 

DB 

C 

KM 

KM 

DEG 

EM/S 

NM/S 

KM 

NO 

NO 

MSKM 

MSKM 

CS 

1 

8  1 3 

55 

66 

18 

3,7 

5.2 

317 

9 

0.0 

0.0 

8.0 

0 

0 

0 

0 . 00 

0 . 00 

0 

9 

14  -10 

32 

32 

.1. 

0.0 

0.0 

0 

27 

0.0 

0.0 

10.0 

0 

0 

0 

0.00 

0 . 00 

0 

3 

5  -18 

48 

49 

1 

0,0 

0.0 

0 

9 

0.0 

0.0 

5 . 7 

0 

0 

0 

0 . 00 

0 . 00 

0 

5 

0  -25 

37 

39 

1. 

0.0 

0.0 

0 

28 

0.0 

o 

O 

4.6 

0 

0 

0 

0.00 

0 . 00 

0 

6 

-63-155 

36 

36 

1 

0.0 

0.0 

0 

38 

0.0 

0.0 

2.4 

3 

0 

0 

0 . 00 

0 . 00 

0 

8 

-64-143 

41 

41 

1 

0.0 

0.0 

0 

30 

0.0 

0.0 

1 .3 

9 

0 

0 

0 . 00 

0 . 00 

0 

VOL  HHMM  AREA  UFLUX  NEAR  NEIGHBOR  ACT  NO  NO  VELOCITY  IRK  CIS  INI  0  (IMF  R 

SCAN  KKM2  KMT /H  CELL  CL.ST  CONT  VCL  CS  EC  EM/S  NM/S  NO  C1R  C1R  1 

1  1730  14.8297.39  8.7  12.9  0.0  145  8  6  16.0  5.0  228  16  45  009000 


Figure  I  Volume  Scan  Output 


II 


*  NORMAN  * 


EXPANDED  INTEGRATOR 


DAY  99  .1.980  . -  173049  CST 


PRF  . — 

1084.60 

(/S) 

WAVE  LNGTH  - 

1 0 . 53 

(CM) 

FREQUENCY  . 

2850.00 

(MHZ) 

TRANS  PWR  -- 

28 . 75 

( DBM ) 

NOISE  LVL. 

' -106.60 

(DBM) 

BEAM  WIDTH  - 

0.81 

(DEG) 

VEL  RESOLN  - 

0 . 92 

(M/S) 

MAX  VEL  - 

28 . 54 

(M/S) 

SAMPLES  . — - 

64.00 

(/GATE) 

GATES  . . 

762 

ELEMENTS  - 

380 

RNG  DELAY  . 

-310.00 

(M) 

RNG  I NCR  . 

1439.63 

(M) 

FOLD  RNG 

1  ’8.20 

(KM) 

FOLD  GATE  - 

95 

NIJM  FOLDS  - 

4 

CONTOUR 

LEVEL  CL)  -- 

30 

( DBZ ) 

LEVEL  <  2 )  --- 

40 

( DBZ ) 

COMMON  ORIGIN  -  NORMAN  RADAR  SITE 

35.2365  N.LAT  97.4633  U.LONG 

MEASUREMENTS  -  NORMAN  RADAR  SITE 

35.2365  N.LAT  97.4633  W.LONG 
OFF-SET  0.0000  KM  N  0.0000  KM  E 


Figure  2  Radar  Calibration  Attributes 
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recompilation  of  individual  subroutines.  The  command  module  "LDOP.COM" 
creates  an  executable  image  from  the  object  library  and  should  be  invoked 
just  prior  to  program  execution. 

2.0  Program  Execution 

The  computer  program  operates  on  two  types  of  data;  (1)  raw  integrator 
output  and  (2)  calibrated  reflectivity,  radial  velocity  and  Doppler  spread. 
Operation  on  calibrated  data  requires  about  20%  less  CPU  time  than  raw  form. 
There  are  three  data  input  modules  available.  Two  calibration  routines 
input  raw  integrator  data,  perform  data  calibration,  reformat  the  data,  pass 
the  calibrated  data  to  the  cell  detection  routine,  and  optionally  produce 
a  calibrated  data  set.  Two  routines  are  required  to  process  data  from  both 
the  Cimarron  and  Norman  radars  since  each  generates  output  in  a  different 
format  (Appendix  D) .  Each  routine  is  stored  in  a  file  referenced  by  the 
corresponding  radar  name,  CIMARRON. FOR  and  NORMAN. FOR.  The  third  routine, 
in  file  EXPAND. FOR,  inputs  pre-cal ibrated  data  and  passes  it  directly  to 
the  cell  detection  routine.  EXPAND  accepts  data  from  either  radar  since 
the  reformatting  procedure  is  identical  in  the  two  calibration  routines. 

Figures  4  and  5  illustrate  sample  command  procedures  for  processing 
raw  and  calibrated  data  respectively.  DOPTAP.COM  (Figure  4)  can  be  run 
either  interactively  or  in  batch  mode.  It  requires  three  input  parameters, 
PI,  P2  and  P3.  PI  is  the  label  of  the  tape  on  which  the  raw  data  are  stored, 
P2  is  the  file  specification  for  the  various  output  files  to  be  produced, 
and  P3  is  the  radar  name.  During  interactive  operation  the  user  will  be 
prompted  for  each  input;  in  batch  mode  the  input  parameters  must  be 
supplied,  in  order,  by  a  parameter  qualifier.  For  example,  the  command: 

SUBMIT/ PARAMETER^ (TAPLBL, DATE I L , RADNAM)  DOPTAP 

will  place  the  job  DOPTAP  into  the  batch  execution  queue  and  substitute 
TAPLBL  for  PI,  DATFIL  for  P2  and  RADNAM  for  P3. 

After  receiving  the  user  inputs  the  command  procedure  attempts  to 
allocate  an  MTA  tape  drive.  If  a  drive  is  not  currently  available  the 
procedure  waits  five  minutes  and  repeats  the  process  until  successful. 

The  operator  is  requested  to  load  the  data  tape  volume  on  the  allocated 
drive  and  the  tape  is  mounted. 

In  the  LOOP  section  the  disk  directory  is  searched  for  an  existing 
file  with  the  same  specification  and  generic  name  (SRT)  as  the  output  file 
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Figure  4  DOPTAP.COM  Command  Procedure 
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about  to  be  created.  If  such  a  file  exists  the  output  file  is  assigned 
the  next  higher  version  number.  Input  files  are  assigned  to  a  logical 
name  consisting  of  "F"  plus  a  number  indicating  the  order  in  which  the 
files  are  to  be  processed.  The  number  sequence  must  begin  with  1  and  be 
continuous  (FI,  F2,  F3...).  The  output  file  for  calibrated  data  is  given 
the  generic  name  PRE  and  assigned  to  device  FOR002.  The  integrator-to- 
power  conversion  table  for  the  appropriate  radar  is  assigned  input  device 
F0R004 .  Formatted  summary  data  output  (controlled  by  PRCELL,  PRCLUS  and 
PRFIXC  in  subroutine  INPARM)  is  written  to  a  generic  file  SUM  through 
device  FOR006.  Note  device  FOR006,  if  left  unassigned,  defaults  to  the 
user's  terminal  during  an  interactive  run.  Any  parity  errors  encountered 
during  the  tape  read  are  listed  in  the  ERR  file  assigned  FOR007. 

The  correct  calibration  routine  for  the  particular  radar  in  use 
(e.g.,  NORMAN)  is  inserted  into  the  object  library  (DOPLRBO.OLB)  by  the  LIB 
command  and  individual  object  modules  are  linked  to  form  an  execution 
file  by  the  separate  command  procedure  "LDOP.COM".  Actual  program  execu¬ 
tion  is  performed  by  invoking  the  command  module  RUN  DOPLR80 . 

Upon  completion  of  the  program  run,  the  data  tape  is  dismounted  and 
the  tape  drive  deallocated  in  order  to  allow  access  by  other  users.  Two 
temporary  output  files  are  created  after  each  volume  scan,  one  for  the 
various  contour,  cluster  and  cell  attributes  and  a  second  for  the  contour 
vectors.  These  files  are  merged  in  the  order  they  were  produced  to  form 
a  single  unformatted,  binary  file  containing  a  sequential  record  of  the 
full  observation  period.  Final  bookkeeping  involves  deleting  the 
temporary  storage  files. 

A  second  command  procedure  is  illustrated  in  Figure  5  which  demon¬ 
strates  batch  only  operation  on  a  pre-calibrated  data  set.  In  this  case, 
two  input  parameters  are  required;  these  are:  the  job  name  (PI)  for 
assignment  of  output  file  specification  and  the  radar  name  (P2) .  The 
calibrated  data  are  stored  in  a  multi-volume  tape  file  that  is  assigned 
to  input  device  FOR002.  Note  that  the  integrator-to-power  look-up 
table  i s  not  requi red  since  the  conversion  process  was  performed  during 
the  earlier  run  through  the  calibration  procedure.  The  input  routine 
"EXPAND"  is  inserted  into  the  object  library  in  place  of  the  calibration 
routine  and  the  program  is  linked  and  executed  as  before. 
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Figure  5  DOPCAL.COM  Command  Procedure 
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APPENDIX  A 


USER  CONTROL  PARAMETERS 


User  interaction  with  the  computer  program  is  accomplished  through 
parameters  set  in  subroutine  INPARM,  The  user  can  (1)  select  which  data 
are  to  be  processed,  (2)  adjust  the  track  association  criteria,  and  (3) 
control  the  program  output  by  defining  values  for  the  parameter  list 
described  below.  Each  time  a  parameter  is  changed  the  subroutine  must  be 
recompiled  and  replaced  in  the  object  library  as  illustrated  in  Appendix  B. 


PARAMETER  TYPE 


FUNCTION 


CONTRV  L 

CONTRZ  L 

CAL  I  BO  L 

PRCF.LL  L 

PRNOIS  L 

PRFIXC  L 

PRCLUS  L 

COPLOT  L 

CEPLOT  L 


Controls  whether  Doppler  cells 
are  processed  (T  =  process) 

Controls  whether  reflectivity  cells 
are  processed  (T  =  process) 

Controls  the  creation  of  a  calibrated 
data  set  by  the  calibration  routine 
(T  =  create  data  set) 

Controls  output  of  volume  cell 
attributes  through  device  FOR006. 

(T  =  generate  output) 

Controls  output  of  volume  cells 
that  have  been  rejected  by  the  noise/ 
ground  clutter  filter.  Valid  only 
when  PRCELL  =  T  (T  =  generate  output) 

Controls  output  of  fixed  contour 
attributes  through  device  FOR006. 

(T  =  generate  output) 

Controls  output  of  cluster  attributes 
through  device  FOR006.  (T  =  generate 
output) 

Controls  generation  of  contour  vectors 
at  each  elevation  in  a  volume  scan 
sequence  (T  =  generate  at  all  eleva¬ 
tion  angles) 

Controls  generation  of  contour  vectors 
at  lowest  elevation  of  volume  scan 
sequence  only  (T  =  generate  at  base 
only) 


19 
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PARAMETER 

TYPE 

FUNCTION 

I AVGR 

I 

Defines  the  number  of  range  gates 
over  which  the  reflectivity  data  are 
to  be  averaged  (must  be  >2) 

BDAY 

I 

Julian  day  to  begin  data  processing 

BEG  I NT 

I 

Time  to  begin  data  processing 
(HUMMSS) 

HDAY 

I 

Julian  day  to  stop  data  processing 

ENDT 

I 

Time  to  stop  data  processing  (HUMMSS) 

LT 

I 

Controls  user  selected  reflectivity 
contouring  (2  =  generate  user  defined 
contours) 

ITL(LT) 

r 

Reflectivity  level  in  dBZ  at  which 
data  are  to  be  contoured 

VD 

R 

User  estimate  of  direction  of  cell 
motion,  in  degrees  from  north,  used 
to  initiate  tracking  algorithm 

VW 

R 

User  estimate  of  magnitude  of  cell 
mot  ion  in  m/s 

ISHR 

I 

Controls  which  Doppler  parameter  is 
to  be  processed 

1)  tangential  shear 

2)  radial  shear 

3)  vector  shear 

4)  radial  velocity 

5)  Doppler  spread 

DIV* 

R 

Weight  of  position  in  cell  association 
function 

ZD  IV* 

R 

Weight  of  reflectivity  in  cell 
association  function 

HDTV* 

R 

Weight  of  height  in  cell  association 
function 

AD  [V* 

R 

Weight  of  area  in  cell  association 
funct ion 

AI 

R 

Weight  of  current  velocity  ’’n  track 
velocity  equation 

*The  measure  of  ccll-to-cell 
(AX?  +  AY?)DIV  +  (AREFL)RDIV 

association  is  given  by 
+  (AHEIGHT)HDIV  +  (AAREA)ADIV 

+ 

The  track 
fVCURRENT^ 

velocity  equation 

A1  +  <vtrac.c>  a2  « 

( V AVERAGE )  A3 
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PARAMETER 


TYPE 


FUNCTION 


A2+ 

R 

Weight  of  prior  track  velocity  in 
track  velocity  equation 

A3+ 

R 

Weight  of  average  velocity  in  track 
velocity  equation 

B1  * 

R 

Weight  of  current  average  velocity 
in  average  velocity  equation 

B2 

R 

Weight  of  prior  average  velocity 
in  average  velocity  equation 

+The  average 
(ZV/N)  B1  + 

cell  velocity 
^AVERAGE^  82 

equation  is 

APPENDIX  B 


SAMPLE  EDITING  SESSION  OF  SUBROUTINE  INPARM 


*  EDIT  INPARM . FOR 

E  0  1. 1  t  Li  DC  5  i-  C  CRAMP  1 I NPAPM .  E  OR  5  I 

*FISHR=« 

1  Al’OO  I  SHR  =  1 

#S:l.$2* 

14200  ISHR=2 

*EB 

I  DDC5  :  t:  CRANE  I 1 NP ARM  .  FOR  5  1  I 
$  FOR  INPARM 
$  LIB  D0PLR8.1  INPARM 
%  PL. OOP 

RUN  DOPERS 1 


I  EDIT  THE  CONTENTS  OF  FILE  INPARM 
!  SEARCH  FOR  THE  STRING  *  I  SHE'”  • 

!  SUBSTITUTE  *2‘  FOR  " I  * 

!  END  EDITING  SESSION 

I  COMPILE  THE  NEW  VERSION 
!  INSERT  MODUAl.  INTO  OBJECT  LIBRARY 
!  CREATE  AN  EXECUTABLE  IMAGE 
!  EXECUTE  THE  PROGRAM 


APPENDIX  C 

OUTPUT  FILE  WORD  FORMAT 
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IITADT.R  RT.CORD  (1  )  STRAP 


Type 

Wo  rd 

Content  s 

Va r i ah  1  e 

Common 

I 

1 

Time 

KT1. 

NVUS 

I 

•7 

Contouring  thresholds  1  0''*  IT1. (2)  +  1T1  ( 1 ) 

IT1.S 

KNCI'R 

I 

3 

Vol  Scan  Counter 

NVSCN 

PN  I  RS 

R 

4 

A~  Min)  4  ni:i.=  i 

a:  1,0 

\::  pads 

R 

3 

\z  Max  » 

A2III 

All  ADS 

R 

0 

Vx  \  Avg  Velocity  of  Cells  Updated 

vxs 

R 

- 

Vv  1  This  Scan 

VYS 

R 

8 

Total  Area 

Arcs 

DATA4 

R 

9 

Total  Water  I  lux 

WTCS 

DATA) 

It 

10 

Avg  NN  Dist  -  V  Cells  Updated  This  Scan 

DNN 

R 

11 

Avg  NN  Dist  -  St! 

DCN 

It 

12 

Avg  NN  Dist  -  Clusters 

DCA 

R 

13 

Reference  Azimuth  for  Plotting 

AZItliP 

I 

14 

Radar  ID  Code;  (13=NR0)  (21=CIM1 

I  RADAR 

A7.1  ADS 

I 

18 

Number  Active  (updated  this  scan) 

Cell  Tracks 

NACT 

I 

10* 

Number  SC 

KNCI,=NCI,+  1  O'' 

DATAS 

r 

17* 

Number  Contours 

KNI'L=N1T.+  1 0'' 

DAT  A  3 

I 

18* 

Data  Type  =  1 

10NP. 

*Sort  Parameters 

NN  HIST  =  Nearest  Neighbor  Distance 
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HEADER  RECORD  2  FTRAK 


>T£ 

Word 

Contents 

Variable 

Common 

1 

1 

T  ime 

KTL 

NVL1S 

R 

P.-W  Offset 

DLONC 

DECODE 

R 

3 

N-S  Offset 

DLET 

R 

4 

NN  1)1  ST  VC  Unclosed  in  CC 

DVFN 

R 

5 

NN  HIST  SC  enclosed  in  CC 

DFN 

R 

(i 

NN  1)  I  ST  CC 

DCN 

R 

7 

Total  Area  u  CC 

ARCC 

R 

8 

Cl  us  Index  0  CC 

Cl 

R 

<) 

wF  0  CC 

WFB 

R 

10 

WF/SC  5  CC* 

WPS 

R 

1  1 

WF/ARFA  d  CC 

IVAB 

1 

12 

Number  VC  enclosed  in  CC 

NCV 

I 

1 8 

Number  SC  Enclosed  in  CC 

NCS 

1 

14 

Number  CC 

NCI 

[ 

IS 

Number  CC 

N  CC 

1 

lb* 

Number  SC  KNCL=NCL+10'’ 

KNCL 

DAT  A  5 

1 

17* 

Number  Contours  KNFL=NFL+10^ 

KNFL 

DAT  A  5 

I 

18* 

DATA  TYPE=2 

I  TWO 

*SORT  Parameter 

CC  -  Complete  Contours 

CC  -  NCV  >  NNMIN 


nxr.n  contour  (l  )  ftrak 


irv 

i 

'.Vo  l'il 

Pont  out s 

Yar i ah  1 e 

Common 

l 

Time 

KTI 

\\  I.  l  a 

i 

•> 

Ayr  Reflectivity 

FC1.  4  1 . 2  i 

0A1A4 

ti 

s 

Y  i  Ref l  Weight eU  Centroid 

1  T.U  1.5! 

PA!  A  4 

R 

•1 

Y  « 

TCU  1  ,4  1 

1  >ATA4 

R 

Yx  |  Average  Enclosed 
,,  i  Cc  1 1  Yeloc  i  t  ies 

\v  i 

FY\I  i  1 

U1  C 

R 

b 

IVY ( I 1 

11FC 

R 

- 

Area 

tci.i  i .  n 

0ATA4 

R 

8 

Water  Flux 

Feu  1 ,5! 

0ATA4 

9 

Spare 

10 

Spare 

11 

Spare 

1 

i: 

Merge  Pointer 

IF  MCI 

I 

13 

Split  Pointer 

1FTSP 

1 

14 

Age  (.(-)  CC  Flag) 

1  FACT.  (  1 

1 

15 

Number  Y  Cells  [line  1  used- Ac t ive) 

NFY 

I 

lb* 

Number  SC  (fine  losed)=NSIG+1000 

kNSC 

I 

17* 

Contour  Track  10 

1 1TN0 ( I ) 

1IFC 

I 

18* 

Data  Type  =  3 

1  TURF 

*S()R'l'  Parameters 


2b 

'A 


FIXED  CONTOUR  (2)  FTRAK 


Word 

Contents 

Variable 

Common 

i 

1 

Time 

ITL 

NVLIS 

2 

Spare 

E 

R 

3 

*  1  Avg  Cell  Centroids  I 

N 

C 

V 

0 

C 

FX  ( I ) 

UFC 

R 

4 

Y  ’ 

L 

L 

F. 

FY(I) 

UFC 

R 

5 

Avg  NN  DIST 

0 

S 

U 

M 

L 

L 

DVFN 

R 

6 

Spread  About  Avg  NN  DIST 

E 

F. 

S 

DVFS 

R 

7 

Orientation  Angle 

D 

ANGC 

R 

8 

Spread  About  Avg  Cell  Centroid  _ 

SPRDC 

R 

9 

*  l  Avg  SC  Centroids 

E 

FX1 

R 

10 

Y  l 

N 

FYI 

R 

1 1 

Avg  NN  DIST 

C 

L 

SC’ 

'  s 

DFN 

R 

12 

Spread  About  Avg  NN  DIST 

0 

DFS 

R 

13 

Orientation  Angle 

S 

E 

ANGS 

R 

14 

Spread  About  Avg  SC  Centroid 

i» 

SPRDS 

I 

15 

Number  V  Cells  (Enclosed-Active) 

NFV 

I 

16* 

Number  SC  (Enclosed)=NSIG+l 000 

KNSC 

I 

17* 

Contour  Track  ID 

IFTNO(I) 

UFC 

I 

18* 

Data  Type  =  4 

I  FOUR 

*SORT  Parameters 
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CLUSTER  OUTPUT  CTRAK 


AilL0 

Word 

Cent  ent  s 

Variable 

Commo: 

l 

1 

Time 

KTL 

NAT  IS 

l 

J 

Refleet ivity 

12=UC:.!  I 

uve 

3 

*  1  Refl  Weighted  Centroid 

UCX1  ) 

me 

R 

■1 

V  < 

UCYI  ) 

uve 

K 

\vg  of  Enclosed  1'  Cells 

UCVX(  1 

uve 

i\ 

(> 

Vy 

UCVY (  ) 

uve 

k 

- 

Spread  Enclosed  V  Cells 

SPRD 

R 

8 

Summit  Height 

UCHS (  1 

uve 

R 

p 

^  1  Avg  Enclosed  Cell  Locations 

XP0S(  ) 

R 

10 

V  * 

YPOS (  ) 

R 

1  1 

Orientation  Angle  of  Enclosed  Cells 

BC 

I 

12 

Merge  Pointer 

ICMGE 

I 

13 

Split  Pointer 

ICTSP (  ) 

uve 

I 

14 

Age 

I CAGE (  ) 

l 

15 

Number  V  Cells  (Enclosed-Act ivc) 

IN=UCN (  ) 

live 

r 

10* 

Cluster  in 

ICTNO (  ) 

uve 

i 

17* 

Contour  ID  (Enclosing) 

IFXNO 

i 

18* 

Data  Type  =  5 

IFIVE 

*SORT  Parameters 
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VOLUME  CELL  STRAK 


Tv£e 

IV  o  rd 

Cont ent  s 

Variable 

Common 

I 

1 

Time 

KTL 

MIS 

1 

2 

Reflectivity  10  1.0(4  (VCL  (11)1 

I2VA1. 

DATA  2 

It 

3 

*  \  Itefl 

Weighted  Centroid 

VCL (12) 

DATA  2 

It 

4 

Y  » 

VCL (14) 

DATA  2 

It 

5 

'"M  Smoothed  Track  Velocity 

VCL (4 7) 

DATA  2 

It 

6 

Vy  * 

VCL (48) 

DATA2 

It 

- 

Area 

VC  L ( 1 74 

DATA  2 

It 

S 

Height 

■  Itefl  Weighted  Avg 

VCL  (18) 

DATA  2 

It 

9 

Sp read  , 

VCL (42) 

DATA  2 

It 

10 

Doppler 

VCL (23) 

DATA  2 

It 

1 1 

Rad  Vcl 

1 

■  Unweighted  Avg 

VCL  (24) 

DATA  2 

I 

12 

Dop  Spd  j 

VCL (26) 

DATA  2 

I 

13 

Itefl  f,  Doppler  Hits  I VCL (9) *  1  (V'+l VCL(29) 

NII1T 

DATA  2 

I 

14 

Age 

1  VCL (53) 

DATA  2 

I 

15 

Cell  Track  ID  IABSf IVCLfS)) 

1TRKN0 

DATA  2 

I 

Id* 

Cluster  111 

I VCL (52) 

DATA  2 

1 

17* 

Contour  ID  IABS( IFTNO(NI-) ) 

IAEXN0 

UCE 

l 

IS* 

Data  Type  =  t> 

ISIX 

*S0RT  Parameter 
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iN  i\  I  OUR  I’l.O'i  VIX:  IwKS  I  Ti'.Ak 


1  I’ll 

(.Xin  t  < 

FI  f  ■> 

V'ariaM  < 

— 

— 

1 

Time 

Ktl. 

>  « 

I'll  re.1 

.h  <iH.: 

ITU  i 

s 

X, 

HAT  (  1  : 

4 

Y, 

Segment  1 

HAT ( 2 i 

5 

1 

X, 

OAT (3) 

b 

V  , 

PAT  i  ) 

7 

X. 

PAT (3) 

8 

[ 

Y1 

X, 

S oilmen t  2 

PAT (9 ) 

9 

PAT ( ~) 

10 

„ 

Y, 

0AT(S) 

11 

X, 

PAT (9) 

12 

Y1 

X  2 

Segment  3 

DAT (10) 

18 

DAT (1J) 

11 

y“ 

DAT (121 

18* 

10  from  Contour  (Segment) 

lt> 

10 

10  of  Low  (line losing)  Contour 

IPB 

17* 

Track  10 

Nl; 

IS 

Data 

Type  =  7 

t SEVEN 

*SORT  I’aramctcr 
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APPENDIX  D 
RADAR  DATA  FORMATS 
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:  *\1 


:  o  - 1  ? 

i  /  -  20 
21 

22-23 

24 

24-25 

26-29 

30 


31 


32 

33-35 

36 


1  if- 


1 1 1 1  <  1 1  *  1 1 1 
ruliun  2:te 

;  i  me  h:~v.:iss 

Azimuth  XXX. X  degrees 

Elevation  XX. X  degrees 

Range  XXXX  us 

Record  type  indicator  27r. 

o 

Nuriber  of  gates  recorded 

Bit  A  0  =  3  us,  1  =  5  i,s  pulse  width 

Pulse  width  XX  us 

Number  of  samples  per  gate  XXXX 

Nth  trip  indicator:  bits  2-1 

Antenna  direction  in  horizontal:  bit  4 

0  =  CCW,  1  =  CW 

Antenna  direction  in  vertical:  bit  8,  0  =  down,  1  =  up 
Magnetic  tape  drive  selector:  bit  A 
Low  gain.  High  gain:  bit  B,  0  =  low,  1  =  high 
Collection  mode  trigger;  bits  2-1  00  -  continuous, 

01  =  time,  10  -  azimuth,  11  =  external 
Selectable  PRT  bits  8-4  00  =  768  us,  01  -  922,  10  =  1075, 

11  =  1229 

bit  A  0  =  normal  integrator,  1  =  expanded  integrator 

bit  B  0  =  normal  pulse  width,  1  =  wide  pulse  width 

Gate  spacing  in  us 

Collection  trigger  increment  -  time  mode  XX. X  secs, 
azimuth  mode  XX. X  degrees 


Collection 

mode  bits  4-2-1 

000 

Sector  (Constant  tilt) 

001 

RHI  (Constant  azimuth) 

010 

Time  series  (antenna  stopped) 

01 1 

Coplanar 

100 

Cal i bration 

AGC  Switch  bit  8  AGC  on  =  1 
Integrator  ,",nge  averaging  switch 

bits  b  A:  00-1 ,  01-2,  10-4,  11-8 


/ 
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page  2 

Raw  Doppler  Format  1979,  Cimarron  Radar 


Pos i tion 

Contents 

37-38 

Transmitter  frequency  27XX  mHZ 

39 

Number  of  integrator  samples  when  in  linear  mode 
Bits  4-2-1,  k  =  0-7,  2k+3 

When  in  exponential  mode  indicates  time  constant 

Integrator  mode.  Bit  8:  G-linear,  1-exponential 

k  +  5 

Number  of  samples  in  PPP.  Bits  B-A  2 

40-41 

*  (not  used) 

42 

Calibration  switch 

43-44 

Calibration  value 

45-48 

PRT  XXXX  us  (fixed  at  0768,  see  position  31  for 

49-64 

Integrator  values  used  for  AGC.  6  bit  binary 

65 

Gate  1,  In-phase,  most  5  significant  bits 

66 

Gate  1,  In-phase,  least  5  significant  bits 

67 

Gate  1,  Quadrature,  most  5  significant  bits 

68 

Gate  1,  Quadrature,  least  5  significant  bits 

69-72 

Gate  2 

125-128 

Gate  16 

129-132 

Gate  1,  second  sample 

189-192 

Gate  16,  second  sample 

Length  of  record  depends  on 

number  of  samples 

No.  of  samples 

Record  length 

32 

2112 

64 

4160 

128 

8256 

256 

16448 

512 

32832 

1024 

65600 

2048 

131136 

An  additional  number  of  unused  bytes  is  always  added  to  each  record 

This  varies  from  3-11  bytes. 

33 
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RAW  DOPPl.t' R  FORMAT  19/9 
NORMAN  DOPPLER 

I  mu'  '."t  il's  Records  (Low  PRF,  Channel  A) 


Pos i t i on 

1 

2-7 

o 

8-11 

ir-K 

Id 

15-17 

18 

19 

20 

21-22 

21-22 

23-25 

23-25 


26 


27 


28 


Contents 

17 j  (Bits  8,  4,  2,  1  on) 

Time  HHMMSS 

8-4  bits  indicate  delta  azimuth 

01  =  0.5°,  10  =  1.0°,  11  =  2.0°,  00  =  None 

Azimuth  XXX. X  degrees 

Elevation  XX. X  degrees 

PP1  collection  mode  indicator  Bit  8  1  =  P P 1  mode 

Range  XXX  us 

Gate  spacing  X  ns 

No.  of  samples  per  gate  2^+^,  1  <_k -- 7 

Number  of  samples  in  PPP  Bits  2-1  2^+^ 

Antenna  speed  (azimuthal)  X.X  degrees/second  (bits  8-4-2-1) 
Calibration  switch  (Pos  22,  bits  B-A  and  Pos  21, 
bits  B-A  correspond  to  8-4-2-1  value) 

.'^lian  date  (Pos  23,  bits  2-1,  Pos  24-25,  bits  8-4-2-1) 
Calibration  value  (Pos  23,  bits  B-A-8-4,  corresponds  to 

8-4-2-1  of  tens  digit;  Pos  25,  bits  B-A,  Pos  24,  bits  B-A. 
corresponds  to  8-4-2-1  of  units  digit) 

8  bit  on  High  PRF,  4  bit  on  B  channel,  off  A  channel, 

2  bit  high  gain  on,  1  bit  AGC  on 

A  bit  0  =  normal  pulse  width;  1  -  wide  pulse  width 
B  bit  if  wide  pulse,  0=3  us ,  1  -  5  us 
Antenna  direction  azimuthally.  Bit  1 
0  =  CCW,  1  -  CW 

Antenna  direction  vertically.  Bit  2 
0  =  down,  1  up 

Magnetic  tape  drive  selector.  Bit  4 

Expanded  integrator  Bit  8  0  =  normal,  1  =  expanded 

Selectable  PRT  Bits  B-A  00  =  768  ns,  01  -  922,  10  -  1075, 

11  =  1229 

Bits  4-2-1,  Number  of  integrator  samples 
when  in  linear  mode,  k  =  0-7,  2*°^ 

When  in  exponential  mode  indicates  time  constant. 


;\><!c  'j 

kaw  Doppler  format  1979,  Norman  D  .pplor 


i ' o i  t  i  on 

28  i  cur  l  i 


30 

31-46 

47 

48 

49 

50 

51 

52 

53-56 


(  .intent s 

Integrator  mode  Bit.  8 
0  -  linear,  1  -  exponential 
Multiple  trip  indicator  Bits  B-A 
Collection  mode  Bits  4-2-1 

000  Sector  (Constant  tilt) 

001  RHI  (Constant  Azimuth) 

010  Time  Series  (antenna  stopped) 

Oil  Coplanar 
100  Calibration 
Bits  B-A-8  Step  number  0-7 
N.  A.  internal  use 

Integrator  values'used  for  AGC.  6  bit  binary 
Total  number  of  16  gate  steps  0-7 
Int/OCC  switch  0  -  off;  1  =  on 
Gate  1,  In-phase,  least  6  significant  bits 
Gate  1,  In-phase,  most  6  significant 
Gate  1,  Quadrature,  least  6  significant 
Gate  1,  Quadrature,  most  6  significant 
Gate  2 


109-112 

113-116 


Gate  16 

Gate  1,  second  sample 


173-176  Gate  16,  second  sample 

etc . 

Length  of  record  depends  on  number  of  samples. 


.  19 

No.  of  samples 

Record  length 

1 

32 

2096 

2 

64 

4144 

3 

128 

8240 

4 

256 

16432 

5 

512 

32816 

6 

1024 

65584 

7 

2048 

131120 

36 
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Raw  Doppler  Format  1979,  Norman  Doppler 


‘fries  Records  (High  PRF,  Channel  B) 

i  'ii  Contents 

24  Same  as  low  PRF 

5 ?  Gate  1  ,  In-phase/Quadrature 


69-72  Gate  6 

73  -  76  Gate  1,  second  sample 


93-96 
e  t  c . 

length  ot  record  depends  on 
Pos .  19 
1 
2 

3 

4 

5 

6 


Gate  6,  second  sample 

number  of  samples. 

N lo_._  o f _ s ampj_es_ 

32 

64 

128 

256 

512 

1024 


7 


2048 


Record  length 
816 
1584 
3120 
6192 
12336 
24624 
49200 


I n teqra tor/PPP  records 
Position 
1 

2-46 

47-808 

809-1570 

1571-2332 


Con  tents 

15y  (Bits  8,  4,  1  on) 

Same  as  time  series  records 
Integrator  values  for  762  gates 
6  bit:  0-63 

Pulse  pair  velocity  values  for  762  gates 
6  bit:  0-63;  2's  complement 

Pulse  pair  spectral  widths  for  762  gates 
6  bit:  0-63 


37 


APPENDIX  I 
CI.OSSAR'i 
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i  '.LOSSARY 


Active'  I'll  1  Track 

Age 

f.'ll  Track  Velocity 

(Muster 

Complete  Contour 
'Contour  Plot  Segment 

Contour  Threshold 

Isolated  Significant  Cell 

Merge/Split  Pointers 

Nearest  Neighbor  Distance 

Orientat ion 

Position  Offset 


A  cell  track  that  has  been  updated 
during  the  current  volume  scan. 

Number  of  volume  scans  the  entity 
has  been  tracked  over. 

A  weighted  average  of  ill  the  scan  to 
scan  velocity  of  the  cell,  (21  the 
mean  of  scan  to  scan  velocities  of  all 
cells  updated  on  the  prior  scan  and  (3i 
the  previous  track  velocity.  Updated 
at  the  end  of  each  volume  scan. 

A  narrow  grouping  of  volume  cells  that 
interact  and  are  tracked  together. 

A  contour  that  is  completely  within  the 
scan  bounds  of  the  radar. 

An  \/Y  pair  defining  one  vector  on  the 
perimeter  of  a  contour  region. 

A  fixed  level,  given  in  dBZ,  at  which 
the  reflectivity  field  is  contoured. 

A  significant  cell  that  is  not  a  part 
of  a  cluster  of  cells.  Considered  to 
be  a  cell  cluster  not  resolved  by  the 
radar. 

Track  IP  of  the  entity  that  the  contour 
(or  cluster)  merged  with  or  split  off 
from. 

Average  closest  spacing  between  the 
centroid  positions  of  cells,  clusters 
or  contours. 

The  direction,  relative  to  north,  of 
a  least  squares  line  fit. 

All  position  information  is  given 
relative  to  the  Norman  Radar  Site: 

35 . 25(>5 1  "N  Tat.,  P?  .  lr>333"W  Long. 
Offsets  arc  the  range  from  Norman  to 
the  radar  making  the  measurements. 

A  classification  that  includes  both 
clusters  of  cells  and  significant  cells 
not  contained  in  clusters. 


3<> 


i\.i i  or  I  1  u\ 


\  .  o  i  i  it’-'  0:1!  !  i 

ill  ViTt  l  iM  I  i  -  'll  t ; 

eontimiit>  . m .  1  a 
Seeoinl  !’:■■>  ;  l!  \ 


I  .  •  vJO 

• : , !  \  o r  'hu  it  ri 
t ;  ro  i  i  a  •  :  .  ’  .  . 

:  '  \ 


A  series  of  at  lots:  two  i;i  ninth  so 
either  partial  or  full,  J  a  .tie;:  ”t.  r 
than  ISO  sceonds  taken  over  aov  ran 
of  elevation  angles,  stopped  wither 
u]  or  down. 

The  areal  integration  of  rain  rate 
measured  over  a  eontour  region. 
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APPENDIX  E 

1. 1  ST  1  Nil  OP  COMPUTER  PROGRAM  COPE 


tl 


m 


T  >.  >  *  ;  t  *  i  *  *  •*  .(>  t*  ,  iff  I  'k  *  +  Y  *  T  {  *1  ft*  l.*  *#11  *  + *«+#***  t  i  f  f  :  -f  Y  *  * 


•  Mi  :  uni  i  k;;  l 

■  i '  >1  : '  t  '.  [  b!  I  it(Ky  •  t  I  .  ii:i  > 

Iki  U'.l  ;:  Mi  IN  I  I  I  IK'S  m-M'IK  OF  RAH  AR  UA  J  A  ANli  H  1  * :  I  . ' 

CUN  I  Kill,  i  I  lUJ  1l!t-‘  U 1 1 . 1 1  nil  '  ■  ’..IV 1 1’  1 1 1 1 1  IN1  ‘  . 

If'MS  I  Ml  ’HANOI  .N  an !  I  ANA  RllfAliCN  1  iRU  1  |  i  ■  (" 
l)K'  lll'v'AlllIN  AMI.  1.1  III  I  I 'll  AM  A  I  I-'A  |  1 1  M  AM 
I  I  III;  IiKIM '  HI  I  DU  f  T '  I  !i  |:  |  I  VA  T  ! !  IM  AM". I  I  "i 

i  nh  uni  1 1 ml  scan. 


;  J  f  l-  !  I  Ail  !  : 

(All  INI  MOD  <  NONE 

I  A I  I  I  1'  MODS.  I  Ml’ 'A  KM  »  INI  I  vf  XF'AND «  DD/l  V 1  .C-ONIOR. 

A  !  H  A  K  y  B  r  R  A  k  .  I  (1 M I '  A  l(F«|l  1  R  A  K 

COMMON  BLOCKS 

A/F-  NDS  *  A/M  y  A/' « I  N!  .COON!  . 1 1 A  I  Ae.  .  1 1 A  I  A  I  .  I  !  ( j  B  •  I  MAR  « 
CNSUBf  INTL  r  A  SOB  *  NVI.  T  B » NVI  I  I  *  PARM  » I  N  1  RS  y  I  WORK 
RAOCOM  y  REEL  y  7  If.  niy  I  I  /  S  .UNI  i'll  -l'l  1 


comments:  he- fault  requires  morf  than  i  a  •  scan  in  or  nr  r  in 

FORM  A  VOLUME  SCAN-  ALGORITHM  AIUOMAI  I  LAI  I  i 
OVER  1  MFS  DEFAULT  AND  UFO  T NS  A  Ml  U  VO  I  UMi  SLAM 
ON  CHANGE  OF  I  TU  OR  I  NIL  ORA  I  OR  IYPF. 


version: 

DA  IE  : 

m  s fun: 

PROG MR : 


1.0  DEC /VAX  11-780 

4/30/8.1. 

RK CRANE.  %  GBGUST  ARSON 
GBBHSTAF  SON 


i 


I 


E*****^***********************************#********************** 


LOOT  CAL 
I 

INTEGER 
INTEGER 
INTEGER 
1  MI r GER 
INTEGER 


PRINT  I  v  C  OFT...  ITT  .  CONTRZ  y  LEFT  ITT  y  CON!  RV  .  C  Al  I  DO  y  I’ROVI  R  • 
PR  CELL,  y  PRS  I  G  v  RRE  I  XC  y  PR  CL  l  IS  .  PR  SC  AN  .  I'RHI  AD  •  PRNOtS 
SEC y  7 SEC 

B DAY  y E DAY  v BE  G I N I >  E N D I 
UfWI yTBfTIr TO 
FIR  » I IV  y  I! .  C 
rl  ARvDAY  <  TIME 


D I  MEN S I  0 N  I E C L ( 1 0  « I  2  8 ) • I E S C I  <10.  I  2 8 » 


COMMON  /DATA!/ 
COMMON  /DAT  AS/ 
COMMON  /COUNT/ 
COMMON  /INTI  / 
COMMON  /NVI  IS/ 


E  C  1(10.1 2  8 )  y  N  C  0  .  N  C  M  X  y  N  R  J  C 
F:  SCI.  (10.  I  88  )  .  NSCO .  NSCMX  .  NSR  JC 
IXRy  I  XS 

MHSN  >  MNSN  y  HM .  V  NSN  .  ENSRN  »  NCI  N  .  Nl  L  N  »  M/SN  .  NNM 1  N  »  EC  A/ 
NVAFiMr  NCARM  v  NVO  y  NFO  ■<  ICO*  CO*  JO..IYR.I  HI  .Ml 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/NVI..  I  T/ 
/n  is/ 
/PNTRS/ 

/cm/ 

/VEL/ 

/REEL/ 

/PWORK/ 


COMMON  /A7M/ 


KTI...L  *  NKNI  D y  NKDO  .  1 7TH .  NKDMX  -  I  I  HR  *  TF  XC  (  1  084  1  . 
TSEC* JDAY* JHR* JMIN* USE  0  *  TDAY. I  HR  * TM1 N, ISE C 
NVM IN  *  NVMX  *  IE ESN . NSC AN . I F  SNI  *  NVSCN . NT 

c  o  s  phi*  a  i  n  e:  i.  *  <::  o  a  p  c  2 . /min.i  i  a  a  t  *  s  p  r  m  *  j  f  x  m  x 

TS <  382 ) *  T I  ( 382 ) *  HV  <  382 ) *  RV  < 388 ) r RS ( 382 ) 
U<382) *WI <382) *  HR (382) 

KMAX  *  TIT  <  100)  *  JMXDByJMAX.  C  AMAX  *  I R  .  UR  . 

I  MX.JMX  •  NCI.  *  N I D  *  N I  DP  *  I  MX  *  I MN 
A/MUTH  .  DAZE  .  A/I  AS  T  *  NA  y  El  I  VA  1  .By  C 


H  I  S  I 


42 


i 


COMMON  I  ARM 


COMMON 

-FARM  ' 

PRINT  1  .(OFT  (IF  .LF  IT  01  .  LON  F  R/ .  FONT  RO 
NIIMI  »  NIJMR 

.(  Al  1  DU 

l  OMMON 

'I  I  os  - 

FRIT  LI  » FT:S  I  0  » 1  ‘Rl  1  XL  .LIU  1  UB.PRGLAN. 
LRMO 1 G.LROUI  R 

1  Kill  Ally 

COMMON 

l 

1  NSOlc 

DFO  INI  U.  NDT  .Dl  1  IR.SLON.  1  LUMR  . 

DA/M  .  Is  DAY  « 1  DAY 

1  OMMON 

a  /:• 

SINA.LUBA.nl  1  FA/.  1  SCAN!  •<  Ml.  1 

COMMON 

+ 

RADLOM 

Yl  AR  .  DAY  .  F  1  MF  .Fill  I  »  1  A/1  .  RDKM.  R  1  KM 
D!  AW  1  » 1 TJRDAK  *  R'AWDAR 

y 

COMMON 

•  111  ID/ 

III:  1.  I  .11  II  S) 

COMMON 

/ 1  SOS/ 

1  SUL  I  k 

i  OMMON 

1  DAK  ■ 

SUMN.NUM 

COMMON 

/ 1  INI  ISI  - 

NILIL  *  NSI  R 

i  OMMON 

/A/F  NIC./ 

A/I  U  .  A/FI  1  .  A/RI  1  « 1  1  Old .  I  T  AUF  .  I RADAR 

COMMON 

/ I  LON  ' 

SI  1  R  1  .  RNODI  ■< .  SL  1  FI.  .  RANG  ( .582  )  .  FI  IGF  ( 

58/  ' 

F  mil  OAF 

1  NIT  (FT 

1  >  1  -  1  >  .  1 1:  (  1  (  1  .  1  )  ) 

1.  011  1  OAI 

r NCR  ( F ! 

;li  •.  i  .  i  ) .  fi  sn  (  i. .  :i. )  i 

PAR  AMI  F 

!  R  (RISC'  . 

01  /'ASS  .  DA/M  1  N  0  .  1  I 

RARAMFTFFU  I  IMFN  IV.O»NM  MN 

PARAMI  If  FC.  IF  OF  ~0  .  N  111  C  M  A I  I  vNI  UI'RI  /.  INFTAL  10) 
RFUFND  I 

1NIIIAI  IGF  LAI  1  BRAT  LON  CON!)  I  AN  IB  AND  TRACK  COUNT FRS 
LAI  I  IN R ARM 

cai  i  .rein 

TSOL T  R -  0 
NV'G(  N  0 
N1-' NX  r  NOLL  NT  1 
F  NSN-  I  .00'/ 

I  CO DC  TNI  I  A I 
K  T I  <> 

K  1 1  I.  -  0 
NOLAN  I 
.[FIRST™  I 

I NFN.IT  IN  I  I  I  Al  RADI  Al 
CALL.  F  XF’AND (  I  LODI  ) 


DA  /  I-/ .  Li* DRAW  I 

Df  I  F  .  SKBFAWf 

A /NX  T  =11  OA  f  (  I  A/ 1  >  /  I  0  . 

I  I  NX  I  I  I  OAF (  l 1 II  T)/ I  0. 

<1  Ni  l  0 
NA/SC  0 
A/I  (I  A/NX  I 
I  T  IMF  I  IMF 
NUNXI  NUBLNF  l 

Off  N  ( I  IN  I  I  IF.  STATUS™' SCRATCH'  •  I  FIRM  '  FINFORMA  I  II  D'  ) 

I  FF  FART  FOR  NfW  SCAN 

' .  I  SCAN!  0 
I  I  SUM  0,0 


AT 


11  •  *  i  'Aii  i  A!  i  ii  ,  i 

,  OX  .  *  v  i  :  ,  ,  RADI  A |  ;>  01  ,  o  M  i  A 
!  . i  AO  ’.U,'  01  1  .  .1  .  .  .  If 


I  ,  / !  HA  I 

; I  HI  !  I  I 

DSt  I  I  .  MNO.I  N X  1  *RPD ) 

II  I 

00  !!  N ■  ■  I  i  I  A 
:  0*0!. i  !  RUKM)  / 1'  IKMT1 

IT  (  f  .  til  .  Mi2  )  I  TO” 

no  1.0  1  11  »  I 

I  .  •  -ic.  I  ( .11  N 

I F  (  I  ,  (If:  .  380  '>  no  Id  IT 

I  I  1 1  1 

l  ON  V  INI  it 

’0  No  0 

AZM  Al<  A/NXT 
IT  STAR  t  I  NX! 

I  OOR  ItlROUGH  t  All  I  RADIAL  IN  A/IMIITH  SO  AN 

.  1  NA  NAM 

A  21.  AS  I  AZMI  IIH 
A/MU1  H  A/NXT 
I  I  M.'A1  i:  I.  NX  I 
I  I  SUM  I  I  SOM  III  LOAI 

ITMNA.IU.IO  .AND.  NI..T...  .1  0.1-  A/R'l:  I  A/MOTH 
i'Rf  I  'AKf  Rt  f  I  t  Cl  101  I  Y  AND  01. 1  Ol  IIY  DATA  I  OR  I  ROOT  SO  I  NO 
CALI  D  IT /.COT 

I  Nr  Til  NT  XI  RAD  IAI  AND  OOMPH  IF  OIIANOI  IN  A/  AND  II  AN’!.!.  0 
ft!  CALI  F  XRAN1K  TCODT  > 

I  I  (  DAY  0  I  .  I  DAY  .  OR  .  (  DAY  .  FQ  .  fc  DAY  .  AND  ,  l  I  Ml  1,1  .1  NU  T  )  >  II  ODI 
A/NX  I -’FLOAT  (  TA  7  [1/10. 
i  t  nx  i-  r  i  oat  <  r  1 1 1  i  >  / 1  o . 

Dl  l  If  I  Anna  l  STAR  LI  NX  I  ) 

II  SI  FOR  FND  OF  SCAN 

III  ANSI  F  CIIANCiF  01  HIT  I  T 


A 


I  i  1  MM  Ml  .  1. 1  .  IiH  I  .  UK’,  i  (  DOT  .  NT  .  NORMAL  )  {'ill  TO  I.M 
!'■■!  A.’ in  till  I  N I  ‘  R I  Ml-  N  I  U  I  111  IN  I  I  Ml  IS  <  HAZM  I  M  !U  HAZ i  , 

I  - 

:  , . .  n  >  i  ii'dimi 

I  I  >  11 1 :  •  .  ■  1 1  A.’  )  *  (.1  .  HiT/MlN)  00  IU  H 

n  .  na  .1  a  .  m  An  to 

{ill  id  Fit 

!.-  nr  l  t  a/  da/ 

II  (  AH>.<  DAZ  '  .1.1  .DA  7  1  >  Ml  1(1  10  1 

i  mi  w  din  a i  kin  hirei  i  him.  end  scam 

l i A/!.;  '■  I  ONI  I  .  » DAZ  '• 

tf  iMA.i  .  i  >haze  ha/b 

II  <  DAZE  l  II ,  1 1  A/S  i  CO  ill  141 
I  I  ■  HA/I  ,  Ml:  ..  HA/B  •  ( . 1 1  Id  I  : *  1 

i 

i  I  HI  C  K  F  OF  n>0  |  III  I,  I  I  •:  1 1 i .  1 1 A  i  i: 

i 1 

10  1  HA/:  DA/{360.*DA7I; 

r  r  (  A  H  5  (  1 1 A 1  .  I  I I  ,  H  A 1 M  IN)  (ill  1  0  I  0  ’ 
if  < na,f u .  i  )  no  in  ’o 

00  III  81 
O  '  HI  I  1  A7  "  HA  7 

If  (A  D 8 ( HA/ > . B I  . M  A / 1  )  0 0  10  I  0 0 
OA/B  S  I  ON  l  I  .  i-  DA/) 

IF  <  HA/F  .  NF .  HAZS  >  BO  TO  121 
BO  III  141. 

i 

100  IiA/“  A. 'Ml  1 1 H  AZI.AbT 

I  I  ( A HO ( HA/ )  .  I  T . HA/M I N  )  BO  I  0  01 

C 

i  i  ah: or:  he  i  ia  a/,  check  i  or  abnormal  antenna  rotation 

I  1 

HE  L  FAZ  :  A/MX F  A/Ml  I  in 

IF  (  DEI  FAZ  .1  r,(  •  100  .  ■  ■»  IIEII  A /--DEL  I  AZf  360  . 

IF  (DEI  I  A  Z  .01  ,  1. 0  0 . 1  Ii  E.  I  I  A I  ~  D  E  I.  I  A  Z  -  3  6  0  . 

DA  ZB  G  I  ON  (  1  .  rliEI  1  AZ) 

II  (HAZE  .F  O.HAZS)  00  III  95 
AZOF  -:AZBI  AR 

DAB  1  AZMI  II 11  AZ.SIAR 
DABS  -S  I  BM  ( 1  ..  .HAST) 

I F  (  PASS  .  ME  .  DAZ F  )  A Z B  1  =  A Z B  I  A R  -  D A 7 F  * 3 6 0  . 

I  F  (  A /MX  F  .  OF  .  A  ZB  F  .  AND  .  AZNX  F  .  IF  .  AZM1II  H  .  AND  .  HAZE  .  OF  .  0  >  00  TO  8 

1  F  (  AZNX  F  .  I..T  .  AZST  .  AND  .  AZNX  I  .  0  I  .  A /Mil  I  I  I .  AND  .  HAZE  .  I  T  .  0  )  00  T  O  B 

00  TO  95 

05  I  X 1 -  I AZ 1/1000 

I  X  2  (  T  AZ  I.  1  000*1  X 1  )  /  I  00 

TX3  <  I  AZ  F  ~ I  000*1X1  I  00# 1 X21/10 

I I  <:  PROOF  R  )  UR  I  IF  <  7  »  2222  )  T  T  ME  *  JHR  »  JSEC  r  A/MIJTH » I X 1  ,  1  X2  >  I  X  3 

i 

I.  A.  MIITFI  BHFF  I  TOO  EAROF  »  01  OOF  OFF  OELIS 

f. 

7 Vi  1 1  <  ADS  (  HAZ  )  .  0  I  .  I1AZ  I  )  DAZ  I.iA/0 
OFT  FAZ  AHB(  HAZJKRF  H) 

CAT  I  COMTOR 
NA  :  NA-E  I 

E  I  BOM-  f  I  '  I  IM  1 1  I  I  OA  1 


» 


il  l  S'  I  I'M 


,  ■  1  i  'A  !  I  ,  i  ■  1  I  A  I  N!  I  0 

.  .  ■■  i  ,  i  ,  . 

!  .  ,  '  I.',  i  ■  :  Nli.  I  i  !  fill  j  f)  , 

:1m.  .  Hi.  I  I  A  ’ 

M  ■  '  ARM  III  |  I  ,V  *1.  ;  ■  1 1  , 

'  i.i  ;  >..0N  I  Ok 

Mi  i)  :'  ! 

I  '  f  j  I  Ml  II  U  MAH 

MM  il  CIA!  ■:  i  Mi'll!  '  1  l.ll- '  AM  I  MM  fllr.  llAiill 
I'M,  .Mf  My  Mil  I  Mil  M  III,  hnini 


MM  CONflNOl 

ir  i  I'm. i  r  .  i.o,'  t)t!  io  ? i o 

i  .canf  i 

1 1 A  / 1  AH'. I  A/MIHII  A/SIAR) 

1 1  '■  da.  .•  ..'il  . ha;  i  >  no  ro  i  o  i 

:  V  MVANI  M  l 

i '  I I I  ( :  f  S  h  I  I  NAI  R  A 1 1  I  A  I.  I  M  A  /  S  C  A  N 

1  Ml  I  OMAN  I  =  I  SI  AMI 
i  '  .CAN I-  ■■■  <> 

ha;  ah'.c A.’huiH  a/iasi  ■» 

HIM,  T  A  7  DA/TRI'U 

RROcr.  r  inai  radiai  in  scan 

I I  ( ARC ( ha; ) . OR . DA/M I N )  CALL  CO NT OR 
I  SCANF I  SCAN  I 

I  I  A  Ml  -  r,  I  SHM/NA 

III  VA  I  “FI.  AVI 

II  (MCI  .(.Ml)  HO  III  100 
I  I.  Old  R  I  A  Of. 

AMU  A /Ml  1 1 1  i 
A Z NORM-"  riAZFMXRRAWl  /  I’ . 

A/I.  0  m/I  0+ A  /NORM 

IF  <  A/l  O.f  I  .0.  )  A/I  0  "A /I  01,160. 

If  (  AZL.O.OT  .  060  ,  )  A/I  IT"  A/I  0  060  < 
A/OTA/H If A/NORM 
I F  <  A  Z  H  I  .  I  1.0.)  A  Z 1-1 1  ^  A  7  H  I  I  0  6 0  . 

If  (AZMI . OT . 060. >  A/HI  A/HI  060 . 

ASSOCIATE-:  END  AROUND  I  f  I  l,  S 

100  CALI  C0NTR2 

INCRFMfNI  SCAN  COUNTER 
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NSI  AN  NM  Mil  I 
I  IT  N  I  MSN  I  I 
MV 

i  I  !f1  I  I  'll 

'  I  (it  i !  '  .  i  i ; .  i  ,i  i  .i  i  iti  ;>(K' 

■v  mu  i  .‘in  i'i  i  i  111  a  i  ••  him;  sian  in  ci  an 

I  Al  I  i  I  INI  AIN  'Ml  Nl  N  •  ,  I  I  l  I  y  I  > 

i  in  'Ail  i  nMlViki  (i  .fin  M>.i  1 1  ‘.(I  *,’» 

i  ruNiiNiii 

II  ct!  N>l  .11  . II  MSI'  MA/Sl  NA/SIM  I 

I  M  MU  II  Ml  I  r  IMF 

II  M  1  1  I  MU  .  I  i  .  I  I  M  I  N  .  (IK  .  Nil  .  I!  .  Nf  I  MN  .  (IK  .  I  1  NX  I  Ci  Mil  II 

I  .  AND  .  I  Mini  .MM  NOIcMAI  '  (ill  1  (I  5 

Mill'll  ‘.'III  i  J  M I  MAN  SI  iMMitl-'Y  III  HlSILAY 
M  I  AN  nr  l  i  II  IN  1 1  IN  .  I  (IK  HI-  x  I  Mil  SCAN 

V."  ,i  N  NASI  N  t  I 
II  M'M  N.III.I  i  K  1 1  I  I-  I  I 
A' 'A  INI  StJMN  Nllh 

I  I  1  I  Mil  All  )  Wlc IlfS,,/  I  40  i 

* 

I 

l 

K-,  !  '(It  T  K  0 
(All  SIKAh 

II  (  (Midi  .MM  I  till  >  SKIP 

Cl  flCt  f  II  ) 

(ill  III  I 

SlOFcF  INI  MAI  SCAN  IN  till  I  ISM  I  T  Cl  I  I  AITFcTRUIFS 

o* i  ii  i  in;  i 

MAS  IHA'r 
MIC  line 
IM  IN-  I  M  I  N 
ISM  I  SI  l 
I  CM  I  N  ' fl  I  M 

I  I  III-  I  /  111!  I  ,'n  l  M*  I  00  I  h/SN*  1  000 

II  (MCMX.M  .O)  Ull  ill  <10 
(ill  I A  NC  MNCMX 

(All  A  ricAK  (  N  I  .  NC  .-  NC  r  0  .  •>  I.  Cl  *  NCMX  .  I  Mil  •  1  ) 

CAM  PIRAMNOyNCrtTI.  / 

10  COMM  Ml  II 
4'.'  NOMx  NCMX 
NOM I N  NOMX 

II  'MOM  IN.  I  L.O)  NOMIN  I 

INI  MAI  MCI  Cl  OS  1 1  K  ASSN,  Kill  10  IN  I  I 

(  Al  I  l  OMI  AKE  (EM  y  NCMX  v  II  Cl  .  I  ) 

00  10  I  IS 

rni  cow  mu  scans  01  mss  in  an  io  ram  .cals 

I 


I  HA)  -  IKK.  I  M  I  N  y  LSI:  C  >  I  I  Ml  . 
NOSCN .  A/I  (I.AZIII  y 
..II  lie  »  IM  I  N  -  .  ISC:  C  "  1  UK  y  1  M  I  N  *  I  St  l  y 
Nl.l  »  NA/SC  *  El.  OW  y  I  I.  AVI  y 
I  LUCl.iAIe  y  AVC5TNT  »  ISOCIR 


I  O  NF  I  NF  L  1 


I  i  I  ■  1  .  !  1  '  •  .  •  '  ■  ■ 

is. I  •  t  » 
in  1 

, H  I  !  :  .1  .  1 1  »•!()(  Il  .  ! 


iv,;  ill  A /i 

A  I  III 

A  /  .  t  ■'  1 

•  :  ii  i  i  x  i 

i  ,<  - : .  i  f  r< 

-  !  1  ' 

■v  ■  !  '  ,  l  il 

l  1  ;  i 

i  • 

SCAM 

11  Mf 

in.  ■  y ,  •  i 

in  uni 

■  AN 

.  1  i  ■■  ,  > 

A  * 

V>:  .  '  1  1  ■:  A : 

i  1  II 

l  1  1  Ml 

y  1  1  . 

XX v  A/M 

'll  AN 

,!<.'• 

.11.  1 

n:x x  v  •  ami, 

NA  1  <■> 

I  1  L  VI  1 

•  1  SI. 

■rxx .»  ■  a1.1'  i 

1  N  1 ! 

OKA  I  n IX 

1  AV 

4?X  t  '  I'  ll 

SUP 

ri  us  1 1  f; 

I  ‘ .  ■ 

4!! 


ni  alk  i  i  a  i  m i 


fi  ,,'U  ;  i.  i  '■  i .(i  i 

i  I  'I  l  !  :  111  P"  V,  i  '<>  I  AA) 


I  OKRA  .1  :  I  fi  1  I  I  At  i'.l  .  UNSIANM  AN  1 1  ARRAYS 


I  ANNUM  Bl  01  t  : 

ARYM  .  <  A/M  «  CURAT  1  » I  i  '  \  »CNI  •  >>A  I  A4  .  DA  I  AS  *  BOAT  » 

1  1 1  I  h  » I  It.  II  Kyi  .1  .'.I  Iiyl  1  Ill  AIK  >  I  NS  OR  »  T  N  I  L  *  KMC  I  R  « Kill  Bl  y 
MtlK'lIiyMUl  I  •  NOL  f  S  •  MOI  I  I  *  (II  f  S » ORCOH  »  FARM  t  PRSTORE  »  PVS  TORI  * 
F'UORK  >  QUAN  IX  i  KEF  I  .III  Til .  Tl  IS .  TMAX  .  OEL  .WlNTi./l  DUE 


niMMI  NI!,:  All  iKAI.il-  SYS  1 1  M  KI  UUIKI.  S 
IK  KMAX 

in . :> » s ( i n  inx*  ik v mi  c > 

N  1 1  MAX  NIA*  I  I  MAX 
IB.  ICCCNlfMAxtNI  l‘> 
l  I  A.  I  F'N  (  (  KMAX  .  I  I:  NAX  .  Ml  C  ) 
riK.CI  Ml  (  II  MA<*NI  I '  t 

i  nr.  i  riK1  ( i  in  ax  > 

I ( JMXBB) 

ICONT. (HUNT (NIK . 

Nl DAT -NT  1 1 F  *  1  AT 
A!E<NinAT*NI  C  ) 

I  [IS  1.  0 1  .HSI  (  N  I  HI  +  NIC  i 

HE  FI  IJP  (  Nl  IP  )  i  IS  UK  Up  <  Nl  JO  ) 

T  A I  R  .  OA  TR  (  N  I  r*F‘#NIIMAX  > 

K DM ( MFC ) 

I A  C  1  .  I  A  c:  0  (  N II I P  )  .  I  P  K  N  0  (  J  M  A  X  ) 

TPTA. I  DO ( IENAX . Nl  C  > 

INN-2 .  I NX  Ml  I  I 
u.u  r .  is.  1 1  -  Ni  l  > 


OF  PS  I  ON  r  1.0  MFC  /MAX  I  1.  700 
DA  1 1  :  1/30/01 

nr  S  I  AN  t  KK I  IRANI 
PMK.nk  ;  OBOUBTAf  SON 


*******  V  ********  X*  ******  *********** 

i  otvrcAi  pr i nt i  .ropi  in  . contrz . ceplot. con t ro. proof r. nips t  ,<:ai  mo 

l  DO  I  r  Al  PRO  1.1  .  PRS  .1  0  y  PR  I  I  XI  .  PRO  I  IS  .  PR  SO  AN  .  PR  HI  All .  PR  NO  1 < , 

I  N  1 1  I  if  R  W  I  .  U  y  HR  .  IT  .  I  S  .  HO .  I< »  C 
I  N  1 1:  0  P  R  T I ... .  B  E  0  I N I  .  E  N  TH  .  B  B  A  Y  ,  E  U  A  Y 
I  Nil  Of  R  f  SEC .  I'M.  I  HI  .  I  MX 


Rf  Al  *11  BOA .  SUB »  SUC  »  BA2  *  SB 2 


SCI’ ,  SAD  .  SAC  •  SBC  .  SO 2  »  SB  «  SC 


SUMMON  /MU!  1/ 

(  OMNON  /  (L  I  S/ 
COMMON  /IINUSE/ 
COMMON  /ORCOM/ 
COMMON  /NOL I S / 
COMMON  /NO! IT/ 
COMMON  /CI  S  I  / 
COMMON  //LOOK/ 
COMMON  /INTI./ 

COMMON  /fORAYS/ 


UBR 1(1) »  NAC I  T  »  NT ES  I 

T  SEC  • .  WAY »  JHR  .  JMIN  >  .JSEC  « IB  AY  •  I  HR  *  I  M I N  .  I  SI  C 
NR WC  .  NS I:  K 

COM! AT  » COMLONG » COMHOT . CO MR AH ( 2 ) 

NOARM . NCARM . MOO. NEO . ICO . TO . JO . JYR . I  Bl  .  E  l  I 
Kill  .  NKN  I  B  .  NKBO  *  1 7TH  >  NKBMX  »  ITHR  »  1FXC(  1071  <  .111 
TCI  N  .  TCI  ISTC75A)  .  I  Cl  . MX 
l/OLf  .  //ARY  (  V  I  )  .  RRATE  (  9:1  ) 

MHSN . MNSN . HM . f NSN . F  NSRN . Nl  t  N . NT  I  N . 

M'ZSN.NNM  I  N.!  ( :A7 

T  C  (  1  20  .  I  0  )  .  cm  I  28  »  9  )  .  T  B  <  1  28  .  J  0  )  ,  D  (  1  28  -  V  )  » 
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r 


c 

c 


c; 

c 

r: 


l  IOMM  1 

'  1  i  V  A 1 

COMMON 

/  1  MAX  - 

COMMON 

/OiVI  A  4 

COMMON 

/LNI. 

COMMON 

/I  IU  R/ 

COMMON 

/  nA  1  a;./ 

COMMON 

/PARM/ 

COMMON 

/FIGS/ 

COMMON 

/OFFS/ 

COMMON 

/ I  NS OB/ 

COMMON 

/  A  Z.  M  / 

COMMON 

/MORED/ 

COMMON 

/F  1.1.  1  FR/ 

COMMON 

/QUANT X/ 

COMMON 

/PUORK/ 

COMMON 

/FIXED/ 

COMMON 

/PRSTORE 

COMMON 

/PVSTORE 

COMMON 

/VEL./ 

COMMON 

/REEL/ 

COMMON 

/TIL.  TO/ 

COMMON 

/KNTBL/ 

COMMON 

/KNCTR/ 

COMMON 

/ ARYMX/ 

COMMON 

/HEADC/ 

COMMON 

/WIND/ 

. ni  mx.h  arm. 


Z  M  T  N  . I  I 


Ff-M.  If  Yf-  >. 


rUf 


■  Ull  Y  '  ’ 
(  ."  <{■  )  . 

:!  >  .  NVMM 
*  r  ON  1  KP  ,  I  if  I 


;i  I 


!  Ini' 


-  H  y  c: 


I  fir  JR, 


I  My  .  IM.Mi  II X 

.'!  ! 

l  My  I  Ml  y  I  MX 
HI  tv.  :>?..»  >  .AH  VI  v  UJI 
I.N  r  In  (  I  024  >  y  Ml-  I  A 

t  u!irn r  .s  i ni  i  .rose 
if  rr« t r t !» i > 

ni  u  y mi  i  i .u:i  y  jcTNiK  120)  .urx' 

Jf  I  NO  (  ."..A  ■»  y  Ul  X<  256  >  y  WF  Y  <  25/ 

If  MO  t  250  1  y  f  (MG  (  I  ‘.Ml  -I  y  1C,  I  :  1  .  •: 

PR  INTI  » (.Of  I  01  .(.HI  01  -  CON  IK, 

NOME  y  NIJMR 

P R 0 E. I  I  .  P R S  I  0  y  P R F I X t: .  P R C I  1 1 S  I ' R C (.AN  y  I  I  Hi  OF 
PRNCI  ISyPROUFR 
1:  /off  y  r  /.off 

be: 6 1 N  I  .  E  NOT  y  Ilf:  I..TR  y  SOON  .  1 1  OMf  . 

DAZM.BDAY .EBAY 

AZMUTH y  HAZES y A/I  AST . NA  y  EL  I  VA I 
fNPRf  y  SCALE. 

TATRMN  »  ARE  AM N  »  CE  L.  MN  (  2  )  y  SVMX 
VQIJANT 

KMAX  y  T  <  LOO  >  y  JMXDBy  JMAX  y  l  AM  AX  , 

EMX.IMX  y  NCI.,  v  N  I  B  .  N  L  BP  y  I  MX  y  I  MN 

NFC  y  TL  (  2  )  y  ICC  (  25A  )  «  IB  (  2SA  >  »  NPA  y  JEM  AX  .  I  CON  !(.'/. 

X BONT <  2 ) y  AIR ( 2 5 AO ) v 1 AT y N L OF y  KDB ( 2  >  y 
IDSLOT  ( 5.1. 2 ) 

'  NltP  y  TATR  (  L  85  A )  y  NUMAX  y  I  ACT  (  A4  )  y  IOC  (  32  )  .  I  PRNG  <  A  I  ' 
IPTAR ( 32»  2 )  f  1  TAR ( 30 y  32 « 2 )  t  IF'NTR ( 30 1  3"'  t  2  >  . 

X P 1 R (1 9 2  0  y  2 ) y I P  2  R  < 1 9 2 0  y  2 ) y I P 3 R  < 1 9  2  0  y 2 ) 

'  NOO  y  OATR  <  1  85A  )  y  NOMAX  y  1 ACO  ( A4  )  y  100(32)  .  f  E'ORNC  <  0  4 
IPTAO ( 32  y  2 ) y ITAO ( 30 y 32 y 2 )  y IPNTO  <  30  y  32  y  2  )  v 
I.PLO  <  1.920  y  2  )  y  I.P20  ( 1920  y  2 )  y  IP30  ( 1920  y  2 ) 

TS ( 382 ) y  T J ( 382 ) y  HO ( 382 ) y  RO ( 382  > , RS ( 382 ) 

W(382) y UI( 382) y HR (382) 

BELT  y  EL.  TEST 
K  N 1 0  <  2  )  y  K  N 1 0  A  <  2  y  1 0 2  4  > 

L.  T  y  I T  L.  (  2 )  yKl.OLy  JNlIiy  ,INI0A(2y  1024)  y 
KN  L  DM  (  2  )  •>  K N 1 01  ( 1 » 1 024  ) 

N I  OF  2  y  N I E  M  X  y  N  L  0  AT  •  N  1 0  AT  2 
HI.  (  3  y  5  )  y  M2  <  3  y  5  )  y  M3  (  3  y  5  ) 

SOA ( 1 4  y  8 ) , SOB < 1 4  y  8 ) » SOC ( 1 4  y  8 ) . 

BA 2 ( 1 4  y  8  >  y  SB2 < 1 4 » 8 ) » SC 2 ( 1 4  r  8 ) y 
S)AB  ( 1 4  y  8 )  y  SAC  ( 1 4  y  8  )  y  SBC  (  1 4  y  8  )  . 

S02 ( 1 4  y  8 )  y  SB ( 1 4  y  8 ) y  SC ( 1 4  y  8  )  y  NOM  C 1 4  y  8 ) 


BATA  COML  AT/35 . 23651/  y  C0ML.0NG/97 . 46333/ y 
F  COMHGT/O . 3697/ r COMRAD/ '  NO ' y ' RMAN ' / 

BATA  COMLAT/35 .47533/  y  C0ML.0NG/97 .81314/. 
f-  COMHGT/O.  39939/.  COMRAD/'  Cl  MA ' .  '  RRON  ‘  / 

BATA  KNID/2#0/yKNIBA/2048*0./y  .JNIBA/2048*0/yKNI Bl./ 1024*0/ 
BATA  BELT/  .  5/  .  EL.  TEST  /  .  6/  .  SC  AL  E/1.0/ 

BATA  00UANT/2 . 0/ . B/2/ . C/1 / 

BATA  PRINT1  /  .  FALSE .  / .  COPLOT /  .  FALSE .  / .  CONI  R//  .  f  AL.SE  .  /  . 

1  GEPLOT/ .  F  ALSE .  / .  CONTRO/  .  F  ALSE  .  /  *  PROOELR  /  .  FALSE  .  / 

2  PRCEL.L/  .  FALSE  .  /  »  PRS 1 0/  ,  FALSE  .  /  » PRF I XC/ .  F  ALSE  .  /  . 

3  PRC L US  / .  FALSE  .  /  .  PRSCAN/  .  FALSE-  .  /  .  PRHE  AB/  .  F  AL  SE  .  / 

BATA  NIJMF/O/ » NUMR/999/ 

/MIN  IS  THRESHOLB  LEVEL  ON  PEAK  CELLS 
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Oil  I  A 
HA  (  A 
1 1 A  I  A 
HA  I  A 
HA  1  A 
I  'A  I  A 
HA  I A 
HA  !  A 
HA  I  A 
HA  I  A 
f 

It  A  I  A 

i 

DATA 
U  A  1  A 

0 

Li  A  I  A 
I 

HAT  A 
HA  LA 
DATA 

i 

l  TRACK  VALUES 

i 

MATA  ODE'T/  » 001. y  .00066.  .0005.  . 00033/ .NTEST/.  TRUE . / »NAC 1  1  0 
MATA  Dt:  L  A/0 . 0  >8  V .  LOt  MX/256/  » IFXC/1 024*0/ 

D  A  1  A  NK N  if.  Li /  i  /  .  K  N I  DC  /  I  0  2  4  *  0 / y  NK  DMX  / 1 0 2  4  / 

D A T  A  I  MX / 300 /  »  I  M  /  I  2 8 / »  JM  / 9 /  »  MC D X /  .1  /  » I D / 1  2 0 0 * 0 /  .  L  C  /  1  2 8 0*0/  I 

DA  I A  ft  C  D I R  /  5 .1 2  *  0  / »  J  C  L  /  0  / .  JF  L  /  0  / .  C  D  / 1 .1. 5  2*0. /.D/1  1  52*0.  • 

DATA  NO  ARM/ 460/  .  MNSM/5  /  »  MHSN/1/  » HM/6  .  /  >  FNSRN/  .  1  /.  II  XMX-'  I 
DATA  r M/300/. MCARM/-,  28/ » NF ARM/256/ .  JCTNO/ 128*0/  » .11  1  NU/2'  .A* •> 

DATA  Hl/'TAN'  »  'DOF"  »  'RAD'  »  'RAD'  »  'DOF'  »  'RAD'  »  '  TOT  '  »  'DOF  .  RAP  . 
t  ' RAD ' , ' DOR ' . ' TAN ' .  ' DOR ' ,  '  TAN ' , ' RAD ' / 

DAT  A  H2/ ' SHE ' , ' SRD ' .  ' ORL ' , ' SHE ' , ' SPD ' » ' OEL ' , ' SHE '  . ' SRD  .  01  1  . 

t  '  OEL. '  ,  '  SRD /  .  '  SHE  '  ,  '  SRD  '  ,  '  SHE '  .  '  OEL  '  / 

DATA  H3 / ' MSK ' . ' MSK ' » 'M/S' . ' MSK ' . 'MSN' » 'M/S' » ' MSN ' . 'MSN ' .  M  H  . 
t  '  M/S '  , ' MSK ' . ' MSK ' y ' MSK ' , ' MSK  '  y  '  M/S  '  / 

i ; 

I  ND 


/MIN  /  2  0 . 0  /  y  1  S  R  C  /  0  / 

I  /()l  t  / TO/ 

SOA/112* 0  .  /  » S 0 D / 1 1 2 * 0  .  /  ,  S 0 1, / 1 1 2 * 0  .  /  y  S A 2 /  1 J  2 * 0  .  /  . : . D  2 .  1  1  .  ♦ .  - . 
sc.’/l  I  2*0  .  /  y  S02/ 1 1  2*0  .  /  » SAB/ 1 1  2*0  ,  /  » SAT  /l  12*0.  '.SHIV  I  I  *"  ■ 
SR  / 1  1  2*0  .  /  »  SC I  I  2*0  .  /  v  NIJM/ 1  1  2*0/ 

Dl  01  NT  .'0 /  .  I:  NUT/ 2 5 0 0 0 0 /  ,  H D A  Y  / 0 /  « l  D A  V  /  5 66/ 

HI  I  1  R  '  1  .  0.  V  rrilMR  2/ 

AREAMN/0 . 5/ r  DA/M  '0 . 0 1 // 

NRUIO /O/yNSt  R/0/ 

I  I  TAR  '64*0/ v  I  TAR/ 1920*0/ y I RN I R/ 1 920*0/ , 

I R I R  /  3  8  4  0  *  0/ r I R 2 R / 3 8  40* 0 / . I p 3 R / 3 840*0/ 

I R  r A 0 .  64*0/ -  I  I  A 0 / I  920*0/.  1 1  •  N T 0 / 1 9 2 0*0/. 

I R 1 0 / 3 8  4  0 *  0 / .  I  f  •  2  0 / 3 8  40*0/. 1 R  3 R / 3 840*0/ 

NT  DR/ 256/ . I A  T /5/ , NPA/4/ . TEMAX/32/ . NFC/2/ 

N I D F  2 / 5 1 2 / . N I R M X / 1 2 8/ • N1 HAT/ 1280/ . N 1 D A  T  2 / 2 560/ 

K  M  A  X  /  3  0  /  f  JM  X  D  D  /  I  0  0  /  .  J  M  A  X  /  6  4  /  .  I  AM  A  X  /  3  I  5  /  ..IK/  7  /  .  I R  /  <  0  . 

I  MX  (MX/64/.NCL  /  182/ 

N I  I.i  / 1 2  S  /  .  N 1 1 R  /  9  /  .  N II 1 1  ■  /  6  4  /  .  N (JM  AX  /  2  9  / 

NIJO/9.'  .NOMAX/ 20/ 

I  MX/ 381/  y  I  Mil/ 2/ 


*  +  !>»►  T  '  t 


F  >  i  T  t  ,  f  .  t-  *  »  *  L  *  *  *  *  *  *  *  *  t  *  *  *  r  I  -V-  t  *  +  *  *  *  F  *  *  *  X-  (■  F  *  *  *  ;  *  i  ■<  <  •* 


f  J . ,  -  f 

'  •  i  'i  ■ 

■  •  i  ■:>:!'•.!  Ml  •III  I  ARAMI  I  i  I  Hi  i  HIM  i  tun  ,n 


,1.1  < rr. ,  non .  i  i;i  coo 

mi  i  I  U  :ii  iH:  ouNi 

I  III,!  MM  Cl  III  ... 

(nil  "i  i.  .  (  i  iiJ:  i  » i  l  US .  da  i  F:  »  I  Nsi  il< » KNC:  i  R » MORI  ii.nl  l  v>i  :m  »  kc  v 


iiiht'iiMis:  musi  ui  kd  rum •  1 1  i  li  Al  in;  ciianoi  s 


si  is  1 1 in  : 
ha  1 1  : 

id  S  I  1,1-4" 

I  k()i  .Ml,  : 


1.0  HI  (  VAX  II  /BO 
‘l  ■  so.  B  I 
kkl  KAMI 
I.FHIIIS  I  A I  .UN 


******  ***************************  ************  ****■(****  *  *  ****** 


I  1 1 1 . 1 1  A  l  F  •  k  I  N  T  I  .  ( T )  P 1 .  0  !  .  11 0  N  T  R  /  y  0  E  k  L  0  T  y  C  0  N  T  R  V  y  p  k  0  V  E  k  . I  k  N  (.1  IS. 

F  Pkcri  I  y  F'F\S.l  (i  y  Pkf  I  XCykkCl.  USyl-kSCANykRHi:  AIiyCAl  IHD.MII  ■  ,  I 

1  N  r F  fil  k  HI'IAY»L  MAY  .HER INI'  .END! 

I  N  1 1  I  >1.  R  YF  AF< ,  HAY  y  I  1 MF  .  k  NO  HE  l  r  R  t 


I  HMMIIN  /OA  I  f  / 
COMMON  /F  ARM/ 

I 

COMMON  /FLOS/ 

F 

COMMON  /  IN  SOP/' 


FAVOR 

PR  I  N  r  t  y  COPLOT  » CPPLO  T » CCiNTHZ  *  COOT  kV .  (  A!  ICO 
NOME  yNUMR 

PR  CEL  I  .  PkS  I  G «  PRF  I  XC  y  PRC  LI  IS  y  PRSCAN  .  I  kHI  AH. 
PRNOI  S .  PROVER 

HE  o  r  NT  y  E  NIVT  .  HO  TR  »  SCON  .  I  COMP  . 


COMMON  /DOPLR/ 
COMMON  /MORE  0/ 
COMMON  /OF  F  S/ 
COMMON  /VP ARM/ 
COMMON  /KNC TR/ 
F 

COMMON  /CONST/ 
T 


HAZMyBDAY.EDAY 
A ( 5 ) y  D ( 5 ) »  NSM  y 1  SO ( 20 ) .  I SHR 
FNPRFy  SCALE! 

I/OF  f  * F  /OF  F 

VX  y  VY  y  VX  [ .  V  Y I  y  I  MK  I  I  y  TMK  1 1  I 
I  I  y  .ITLC?)  y  FT  VI.  y  .  JN  I  D  *  JN  1  HA  <  2  y  I  024)  . 
KN  ti:iM(2>  yKNHH..  (  I.  .  1024) 

VMFSWC  2  )  .  0  !  VyVMAO.VMISUM.  7.  IF  I  V  ?  A  H 1 V  . 
A1  y  A2y  AS  »  R.1  y  E<2  y  IIP  TV 


PARAMF:  TER  ( T 


.TRUE! 


y  f  ■■■■■■ .  false:  . ) 


OUTPUT  ANA  PROCE  SSING  SWITCHES  ( DEFAULT-F  ALSE: ) 


* HE  VICE  A 

PR INTI  .  CUN TOR  CLUSTER  OUTPUT y  LOWEST  FI 

PRCEL.L.  . -  STRAK  NORMAL  VOLUME  CELL  SUMMARY  OUTPUT 

PRSIG  .  STRAK  SUMMARY  OUTPUT  ON  SIG  CLIIS  ONLY 

PRF  L XC  FTRAK  NORMAL  FIXED  CONTOUR  SUMMARY  (H 1  Till  T 

PRCL.US  .  CTRAK  NORMAL  CLUSTER  SUMMARY  OUTPUT 

PRHEAH  .  DOPLRSO 

STRAK 

FTRAK 


CTRAK  HEADING  FOR  ANY  SUMMARY  OUTPUT 

PR NO IS  - .  S IRAK  INCLUDE  CELLS  EL AG ED  AS  NOISE  IN  OUTPUT 

PROOF  R  .  CON  TOR 

PEAK D  ARRAY  OVERFLOW  MESSAGES 

PKGCAN  .  ATRAK  SCAN  BY  SCAN  V,  CELL  UPDATE*  IJNl  ADI  ED 

RESOLVE  SCAN  DY  SCAN  CLUSTER  UPDATE*  UNLADE ED 

VI  ON  TOUR  SEGMENTS 

COP l  O  f  CON  TOR  F  I  XED  CON  I  OR  PLOT  OUTPUT 

PEAKD  PEAK  CELL  PLOT  OUTPUT 

CF  IT.  01  .  CON  TOR  FIXED  CON  TOR  PLOT  OUTPUT  ON  LOU  El.  ONLY 

NOTE  .  IE  CEPLOT-T*  COPI  0  T =E 

IK  PEAKD  PROCESSING 

C0NTR2  . .  CON  TOR  CALL  PEAKD  ON  REEL.  DATA 

CONTRV  .  CONTOR  CALL  PEAKD  ON  SHEAR  DATA 

*CAI  I DRAT  ED  DATA 

CAL  IPO  .  EXPAND  OUTPUT  CALIBRATED  DATA  TO  DEVICE 

CONTRV" T 
cunirz  1 

i  A I  t  Hill 
PRINT  I  f 
PRCEI.I  I 
PRNO LSI 
PRF  F  x.C  1 
PRCI..US=T 
COPLOT-  F 
CEP  LOT-- 1 

I F  <  PR  I  Nil.  OR  .  PRC  E I  I  .  OR  .  PRS  I  G  .  OR  .  PRF  I XC  .  OR  .  PRCL.US  )  PR  HEAD"  T 
IF  t CEP LOTi  COPI  OT "E 

INPUT  SMOOTHING  CONSTANT  ON  REFLECTIVITY  (IAVGR) 

FAVOR  "IF 

SELECT  1  IMF  INTERVAL  TO  BE  PROCESSED 

DUAL  BEGIN  DAY  DESIRED 

BE  O  F  NT  BEGIN  T  I  ME  DESIRED  ( HFIMMSS ) 

EBAY  END  DAY  DESIRED 

E  ND  I  END  TIME  DESIRED  ( HHMMSS ) 

BDAY  0 

PEG F NT =102700 
I  DAY  I  A V 
I  NIT  T  I  OS. TOO 


F  rXLIT  THRESHOLD  CONTOURING  LEVELS 

LI  NUMBER  OF  CONTOUR  LEVELS 

III  THRESHOLD  LEVELS  IN  DBZ  < ASCENDING  ORDER) 
Kl.  VI  THRESHOLD  LEVEL  I  OR  CELL  DETECTION 


i  !  - 

in  ( i )  so 

LUC')  TO 
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Ill  l:  INC.  LEVEL  WINDS  MAGNITUDE  AND  I'll 
(.‘H  DIRE  Cl  ION  I  ROM  (DEG) 

MM  GE't  L  l.i  (M/S) 


MD  2S0.0 
MW  l  /  .0 
MW  .001* MW 
Mil  -  .0  I  7  4  5 .3 ‘3*  MU 
MX  -  MW*SIiM<MD ' 
MY  •VWfcCORlVD) 
MX  I  MX 
MY  I  -MY 


SET  RADIAL.  VELIKI TY  SMOOTHING  CONSTANT 


SET  WHICH  MEl.  OCX  TY  MEASURE  TO  PROCESS 
IS  HR  ~  1  -  TANGENTIAL.  SHEAR 

2  -  RADIAL.  SHEAR 

3  -■  VECTOR  SHEAR 

4  -  RADIAL  VELOCITY  (ADS) 

5  --  DOPPLER  SPREAD 

I8HR-1 

DEFINE  VOLUME  CELL  ASSOCIATION  WEIGHTS 

DIM"  0.20 
/niM-o. to 
HD J V =0.08 
ADI  V=”0 . 04 
MM TSUI  1 >= A.O 
VM I S W ( 2  > - 1  I  .0 

DEFINE  VOLUME  CELL  TRACKING  WEIGHTS 


At*.  A 
A 2* .  4 

AS*. .  0 
HI*.  X 
D2  - .  a 


RETURN 


OllBRUU  1  INI  INI  I 


*Y  ******  :{<***************************************************** 

NAME  :  INI  1 

I  !'0.)F  (  I  :  FRF  H  62  0  <  I  A  A  ) 

PUkF'OSF  :  in  IN1TIAI  ISF  VARIOUS  F'AKAML  1F_RS«  WEIGHTS 
ANU  COLIN  I  £  RS  BEFORE  UAIA  PROCESS  J  NG  BEGINS 

1NH  Kt  Ai  t  s: 

CALLING  MOD.  DOPLkSO 
t: AILED  MODS.  NONE 
COMMON  BLOCKS 

Cl  ST  .  CN  F  •  DA  I  AS  »  DA  1  A  I  .  DAT  A2  »  DAI  A3  .  DOM  R  *  El  CONST  » 

I  [  XED  .  INSUB  .  INTI  .  KNC  I  R .  NVI  I S  .  NOL  I T  . OF  FS  ,  OkCOM  . 

I'N  TRS  *  OLJANTX  *  RADAR  .  WARM  *  ZL  OOK 

comments;  requires  out rur  from  i nparm 

>. -1 1  k'S  ION  t  1 . 0  D F  C / 0 AX  11  7 S () 

DAIE  :  4/30/81. 

df:  sign:  rkcrane 

progmr:  gbgustaf  son 

%** ***********  It************************************** ********* 

i  n  I  e:  g e r  r i  .  b e g  i  n t  .  t: nd  r .  b day.  e  d a y 
ri  I  MENS  I  ON  I OCL.  (  53 . 460  ) 

COMMON  /QUANTX/  UQI.JANT 

COMMON  /FIXED/  NFC » Tl.  ( 2 )  .  10(256)  .  IB  (256)  » NF'A » IEMAX  » ICON  !  (  2  >  . 

1  I  BUNT  (  2  >  »  ATR  (  2560  >  .  I  AT  .  NIDF  .  KDD  (  2  )  .  IDSL0H51  2) 

COMMON  / 1  NS IJB./  BEG  I  NT  .  END  I  .  DEL  R .  SCON  .  I  COME' . 

F  DAZM.BDAY.EDAY 

COMMON  /KNC TR/  LT»  ITL  (2  )  .  KI...OL. .  JNID »  JNIDA  (  2 » 1024  >  . 

F  KN.I DM ( 2 )  .KNIDL  (1  . 1024) 

COMMON  /ORCOM/  COMI...AT  .  COMLONG » COMHGT  .  COMRAD  ( 2  ) 

COMMON  /RADAR/  HMF' 

COMMON  /CL.  ST  /  TCI  N.  I  CL.  I  ST  (256) .  I  CL  MX 

COMMON  /DATA!/  ECL ( 10 » 1 28 ) » NCO . NCMX . NR JC 
COMMON  / D A T  AS /  E S 0  L ( 1 0 » 1 2  8 ) . N S C 0 . N SC M X . N S  R  J  C 
COMM  0  N  /  D  A I  A  2  /  V  C I...  (53.4  6  0  ) 

COMMON  /DAT A 3/  EUR (6. 460) 

0 0 M M 0 N  /E C 0 N S T /  E A R TIT.  T S BIO  »  ZN D R S 

COMMON  /CUT/  COSF'FII  .SINEL  .  .C0SPI2.  ZMTN  .  EI..AST  .  SPRM  .  IFXMX 

COMMON  /F'NTRS/  NOM IN  .  NOMAX  .  IELSN  .  NSCAN  .  IESNL. .  NVSCN  .  NT 
t: 0 M M 0 N  /NO LIS/  NOARM  .NCARM  .  NOG » NF  O  ,  ICO .  10 .  JO »  JYR  .  LBL  »  KT  L. 

COMMON  /NO  1  IT/  K T L. L  .  NK N I D .  NK D 0 . 1 Z T H . NK DM X » I T FIR .  I F  X C  ( 1 0 2 4  )  .  H T S  I 
COMMON  /INTI  /  MF1SN . MNSN « FIM .  FNSN  »F NSRN .  NCLN . NFL  N .  MZSN .  NNMIN  . FCA 

COMMON  /OPARM/  OX.OY.OXI  »OYI  .  TMKTL.  .  TMKTLL 
COMMON  //LOOK/  JZOFF . ZARY ( 91 ) .RRATE (91 ) 

COMMON  /OFFS/  IZOFF.FZOFF 

COMMON  /DOF'I  R/  A  (  5  )  .  D  (  5  )  .  NSM  .  ISO  (  20  )  .  ISHR 

PARAMETER ( SUM=3 . 73206 ) 

PARAMETER  (  ACON=  .  6/SLIM .  DCON=  .4/SLJM  ) 


I  00  I  OAF  ENCF  <  OCI  (1.1).  TOOL  (1.1)) 


I  YU  BO 


INI  I  IAI  ICF  COUNTER!:) 

N  I  ^  0 
nr.ic  o 
nsr.ic  o 
NCI  N  0 
NFI..N  ' 
l  Cl.  N  . 

NVO  0 
ICO  0 

io--o 

JO"  0 

EL AST ~0. 

if: ONi  o 

I  El  BN-  O 

EARTH -l .21 *2. *63 71  .3 
ICLN~t 

SET  TEST  LIMITS 

TSDIV=0.05 
VMAG--  .01 
SPRM®2 • 

HTST  ~0 . * 

MZSN-40 

NNMT.N-5 

compute:  min  WEIGHT  (ARE agreed  for  a  sig  contour 

FCA=125 . 

T  FT  7  0 

F  C  A  Z  ~  F  C  A  #  I F C Z  * . 0 0 1 

SET  HEIGHT  LEVEL  FOR  X  DETECTED 

H  M  P = C  0  M  H  G  T  +  H  M 
RSN=30 . 

Z NOISE -"20 . 

Z  N  D  R  B  ~  Z  N  0 1 S E  - 2 0 # A L 0 G 1 0 ( RSN ) 

INITIALISE  ATTRIBUTE  STORAGE  ARRAYS 

DO  40  J~1 f ICLMX 
40  I CL I ST ( J)-0 

DO  20  JX==1  f  NVARM 
no  10  MX=1»53 

10  I VCL.  <  MX » JX  >  ~0 
VCL(47»  JX)==VX 
VCL  ( 40  r  ,.JX  >"VY 
DO  11  K  X " 1 » 6 

11  I VR(KX  t OX ) ~0 
20  CONTINUE 

DEFINE  REFLECTIVITY  OFFSETS 

NFC--LT 
I COMP "2 


/ 


I  /Of  f  -  I  /Of  f 

.i/m  f  I  n  (  n  t 

11(1  .’5  1  1  v  N I  I ' 

ii  <  i  >  i  it  ( i  >  *  t  /(if  i 

!  TINS  TRUE  I  I  [NFAR  /  AND  KA  LN  RATE  TADI  t  S 

ir.t  I  AUS  ji,  I 'ARSONS  7/R  k'l  I  A  I  1  0N5FI 1  f '  /  -  A  A  #  R**Bi, 


A A  400. 

HU  1  .4 

AFv'  “At  01  i  1  0  (  AA  >  /  Ft F< 

HR" O. I /HH 
DO  SO  IX  1.9 j 
ZN  -  IX  f. I/OF  F 

ZARY  (  IX)  10.*+</N.  10.  ) 

HR  A  It  (IX)  ■-  I  ().**■'  BR*,N  AR  ) 

so  continue: 

CONSTRUCT  SHEAR  QUANTIZATION  TABLE  IN  1/VOUANT  DB  STEPS 
quantise:  sort  of  tsq  for  DOPPLER  SPREAD < ISHR^S) 

DVQ-=:l .  /VQUANT  - 
[  f  <  I SHR .  E.'Q .  5 )  DUO  -DVQ*2 . 

DO  50  N  J  1 20 

5  0  T  S  0  (  N )  ==  I  <).**(  El  0  A  T  ( N )  * .  1  *  D  VQ ) 

DEFINE  RADIAL  VELOCITY  SMOOTHING  WEIGHTS 


A (  l  )=.5#AC0N 
A  (  2 )  .  1:1 6  AO  3*  AC  ON 
ACS) ::  ACON 
A  (  4  )  -  A  <  ) 

A  (  5  )  A  (  1  ) 

LKl)  -  .5*DC0N 
D(2)=.86603*DC0N 
IK  3) -DC  ON 
IK  4)  IK  2 ) 

D(5)  IK  I  ) 


RETURN 

END 
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-at.il  III  I  '  !  rjl  ;  .1  i  •. :tltn  > 

♦*****#$  *##.***  *  ■:  t  v  *  ***  tut  **********!■****♦  tl  **  *  «*.***  +  *.♦*  +  *****♦*♦*.♦* 


NAMt  T  EXPAND 

I  Kf ) Jt.f  I  :  I  R  1  MO/S  620  1 1  An  > 

IkO.ll  !  !  :  I  R  I  A',  '  '  600  I  AA  > 

t -UKf 'Ota  :  ri  am  uni  At  i.i  n  radar  hoi  a 

INTER  I  ACE '3  ; 

CALI  INC  Ml  Hi .  DOIT  RSO 
CALI  EH  MOMS.  NONE 
INF  TH  RARM. 

I  )  ICO  lit:  •••  Ml  RET  IS  F'ROCRAM  CON  1  l-:i  it  IN  EXPAND 

1  NORMAL  I'ROt  I  SSI  NO 

10  HRS  I  PASS  «  IN. IT  I A  I..  ISl  CONST  AM  IS 
OUTPUT  RARM. 

1.  )  ICO  HF  HI  REITS  PROGRAM  C0N1R0I  IN  IKUTPCO 

0  t NM  Of  DATA  FI LET  END  PROCESSING 

2  NEW  PR  I  »  END  CURRENT  VOLUME  SCAN 
COMMON  BLOCKS 

A  ZENDS  y  AZM  -  DECODE  *  DOPER  *  f  IT...  LEE  .  FIGS  .  GATE  -  T  BAR  y  I  NSIJTs  - 
KNCTR » NEUCO *  I  IRC DM , OUT  PAR  y PWORK « RADCOM . ICON y  UNUSE 

comments:  READS  DATA  THAI  is  output  by  normal 
UNPACKING  AND  CALIBRATING  ROUTINES 
(CIMARRON  OR  NORMAN) 

VERSION*.  1.0  DEC/VAX  11.-780 
DATE:  3/6/81 

design:  rkcrane 

E'ROGMR :  G  BOOST  At"  SON 


^  ^  ^  ^  X  X  X  X  X  X  X  X  X  X  X  X  X  X  'X  . J.  X  X  X  X  X  X  X  X  X  X  X  X  X  x  X  X  X  X  x  X  X  X  X  X  x  X  X  X  X  X  X  X  x  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X 

^  ^  ^  ®  ^  ^  ^  ^  ^  ^  *•  T‘  ^  ^  *  y*  t*  ^  ^  ®  ^  ^  ^  *  *  y*  ^  ^  ^  ^  ^  ^  ^  ^  ^  *  *  *  *  t  *  *  ^  ®  t  *  *.  ^  ^  ^  *  If 

LOG  I  CAL  PRC  ELI...  y  PR'S  I G  y  PRF  I  XC  y  PRCL  US .  PRSCAN  y  PRHEAD  y  PRNO I  S 
I N  T E  G E  R  Y  E  A R y  DAY  » T I M E y I T 1 1  T  y i A 7 1 
INTEGER  TRPOW . I y I  S  y  T I  »  H V 
I N I E  G  E  R  B  y  C y  B f G I N T  » E  N  D T y  B  DAY, F  D A  Y 
C H A  R A C  T  E R *  8  RADA R < 2 ) 

DIMENSION  HINT 6 (7,2) 


COMMON  /INSUB/ 


COMMON  /KNCTR/ 


COMMON  /RADCOM/ 


COMMON 

COMMON 

t 

COMMON 

COMMON 

COMMON 

t 

COMMON 

COMMON 

COMMON 

COMMON 


/AZM/ 

/NEUCO/ 

/GATE/ 

/DOPER/ 

/PWORK/ 

/ICON/ 

/ORCOM/ 

/DECODE/ 

/FILTER/ 


BEG  I  N  I . END T , DELE , SCON , I COMP . 

DAZM  ,  DBA Y  •  I:  DAY 

I...T  r  ITL  (  2  )  ,  Kl.  VI.  ,  ..INTIiy  JNIDA(  2, 1024)  . 

KNI DM  (  2  )  ,  KN  I  DL  (1,1. 024  ) 

YEAR, DAY, TIM E , I  T  I L  I , I  A / 1 • R D K M , R IF  M» 
BEAU I • PUR BAR , RAUBAR 
AZMIJTH ,  DAZES  ,  AZl  AST  ,  NA  -  ELF  VAT  ,  B  ,  C 
Z I  (  3 BO  )  ,  V I  (  ,580  )  ,  S I  ( .580  )  , 

VMX , VMD , NRG , NR EC , NRGR 
I.AVGR 

A ( 5 ) »  D ( 5 ) » NSM , TSQ ( 20 ) • I SHR 

KMAX  f  T  ( 1.00  )  ,  JMXDB  ,  UMAX  .  I AMAX  .  IR  y  ,JR  , 

IMX JMX y  NCL , NI D  y  NIDP y  IMX y  J.MN 

SET  El  ,  RNGDL.Y  y  SETEl.  y  RANG  ( 380  )  ,  I  HOT  (  380  ) 

COM l A  T , COMLONG , COMMIT! . COMRAD ( 2 ) 

UP  ( 9  > .  HE  I  GMT  ,  BITING  y  III.  AT 
TATRMN , ARE AMN , CEL  MN ( 2 ) y SVMX 


I 


f 


(  ( ) M M 0 N  /ROS/  P  R C F  lit  l' R S  I  G *  F R I  l  X C  *  f  R C L US  *  F k SCAN  *  F k HE  AS  *  F k NOES 

COMMON  /OlirFAk/  MOO  l  *  NOI.IT  *  NOCik  *  NOTCH  ( .JO  ) 

COMMON  /I  BAR/  SIJMN.NUM 

C OMMO N  /  A / h  NHS/  A / 1  0  »  A / H I *  A Z R I  I  «  E  E  0  W  *  E  I  A 01:  *  I  R A U A k 
HAT  A  II  I  AO/I/ 

HA  I A  H  I  N  10/  NO  '  *  *  RMAl  '  *  '  FXFA  '  .  '  NHED  '  / 

DATA  RADAR/'  NORMAN  '*' CIMARRON ' / 

I  ARAMF  T  l  R  <  I  E  0  F  -  0  *  N  0  R  M  A  l  =  I  >  NEW  F  R  F  “  2  *  INI  I  A  I.  =  1  0  ) 

II  <  I  COHl  *  EO .  NORMAI  .Ok.  IFLAO.EO.T)  00  TO  /> 

OUT  Fill  HEADER  INFORMATION  ON  (HANOI:.  OF  FRF  OR  INTEGRATOR 
IF  (  .NO  l  .  F'RHEAH)  GO  TO  A 

WR  I.  IF  (6*1/0)  RADAR  (  IRC)  *  HINTG  (  l  *  I  NT  )  *  HINTG  (  2  *  I  NT  )  *  DAY*  YEAR*  II  Ml  * 
l  F R F  *  W  A 0 F  0 M  *  F  R 0  *  T R S F U R  *  C 2 E R 1  *  B E  Aid  !  .  S V  *  V M X  *  F III  S E 

Id  R  I  T  E  (  A  *  1 7  l  )  N  R  G  *  N  R  0  R ,  RN  G  D I  Y  *  S  E  I  R I  *  F  L  D  R  *  I G  F  0 1 ,  D  * 

+  I  FOLD 

I  NFO  I  FREFARED  HEADER  RECORD 

A  R  E  A  D  (  2  *  E  N  D  ==  1 0  )  T I  ME*  DA  Y  *  Y  E  A  R  *  I A  Z I  *  I  T I L  T  *  R  L.  AT*  R  E  0  NO*  H  E I G  H  I  *  D I  A  I  * 

F  D  E  0  N  G  *  I.  R  A  D  A  R  *  RE  Aid!  *  I  F  R  T  *  I  N  I  *  F  R  0  *  Id  A  0  E  E  *  F  R  F  * 

+  FWRBAR  *  R  Aid  BAR  *  PULSE  *  AOGF’WR  *  WAVECM  *  TRSFldR  * 

+  C  2  E  R  0  *  N  R  G  *  N  C  L.  *  I  M  X  *  N  R  G  R  *  N  0  C  I  R  *  F  E  D  R  *  N  0  T  C  H  * 

+  1 0  F  0  E  D  *  I F  0  L.  D  *  R  D  KM.RIKM*  S  E  T  R  l  *  R  N  G  D  I.  Y  * 

+  OMX  *  OMD  *  SO  *  SOMX  .  SI.JMN  *  NLJM  *  NR  EC  *  I  CODE  . 

+  71 *01  *  SI 

IF  CHANGE  IN  FRF  OR  INTEGRATOR*  INPUT  RANGE  GATE  FOSN 

IF (IF l AG. EG, I >  GO  TO  AS 

I F  <  I  CODE  .  EG  ,  N E Id F R F  )  G 0  I  0  I  0  I 

RETURN 

♦END  OF  RECORD 

10  CONTINUE 
I C ODE = I EOF 
RETURN 

0 II I  FT  1 1  FI  FAD  E  R  I N  F  0  R  M  A  T 1 0  N 
AS  CONTINUE 

IF  <  .  NOT  .  F'RHEAD  )  RETURN 

I  f  (  l  ADS  (  I R A D A R  >  .  F  O .  I  3  )  I R C =  I. 

IF (  I  ABB ( I RADA R ) . E 0 . 2 1 )  I RC  2 

IdRITE  (  A*  170)  RADAR  (  IRC  >  *  HINTG  <  I  *  INI  )  *  HINTG  (  2*  I  NT  )  *  DAY  *  YEAR  *  I  IMF  * 


F  p  R  F  .  Id  A  0  E  C  M  *  F  R  0  »  T  R  S  P  Id  R  *  C  2  E  R  0  *  D I  AW  I  *  S  0  *  0  M  X  *  F II  l  S  F 

1/0  FORMAT  (  '  1  ' //./7X*  '♦  '  *  All  *  '  *'» 

F  5X  *  2A4  * "  INTEGRATOR ' //3X * ' DAY ' *  1 4  * '  19', 12* 

1  3X  *  '  -  -  '  *  3X  *  I A  .  A  *  '  CST ' //5X  *  '  FRF  -  . '  *  F8 . 2  * 

1  '  <  /S )  '  /5X  *  '  WAVE  I  NO  I  IT  -  '  *  F  B  .  2  ,  '  (  CM  )  '  /5X  * 

+  '  FREQUENCY  . ■-  '  *  FT) .  2  *  '  ( MHZ  )' /SX  *' TRANS  PUR  '* 

1  F 8 . 2  * '  ( DBM ) ' /SX , ' NOISE  l  VI  .  '  * F8 . 2 , '  ( DBM ) ' /SX * 

♦  'BEAM  WIDTH  '  *  EG  .  2  *  '  (  DEG  )  ' /SX  *  '  VEE  RESOL  N  '*F0.2* 

4  '  (M/S) '/SX* 'MAX  VEE  .  ' * F 0 . 2  * '  (M/S)'/5X* 'SAMPLES' 

l  '  '  *  F  0 . 2  * '  (/GATE)') 


W'\  .  I!  -  »  1  I  '  •  NKGR -RHODE Y  *  OF  IK  I  *  FEDR  -  I  ( i  l:  0 1  D- 

i  it  - M  H 

I  I  I  ULNA  I  « OX  -  '  GA  1 1  -  '  »  I  j/SX  v 


I  •  1  I  t  HI  H  I  S  '  •  IO/OX.  '  ENG  I  it.  I  AY  '  » I  8  .  2  -  '  (M)  '/OX. 

-I  •'  KM! :  I  MCE  '  »  F  0  ,2?  '  <  M )  '  /‘..X  -  '  I  01  H  KNO  '  -  F  0  .  7  v 

t  '  (KM  I'  /OX  .  '  I  01  li  OAT 1.  '  -  1.0/ OX  v  '  NUM  I  01  DS  '  .  .10  ) 

1 1  ( dday  . or . o >  wk  i  re c a -  i.  /?. )  dray » begin'?  - r day  - t  nr i 

I  / 2  FT ) K M A  I  (  0 X  »  '  R E 0 1 N  DAY  '  .  1 0 /OX  -  '  D E 0  1  N  T  1  Ml  ■■■■  '  .  I B  .Ay'  <  COT  )  '  / 

}  OX- 'END  DAY  '  -  I  O/O.X ,  '  END  TIME  .  '  ,J8.6.  '  (CS'I  >  ’  ) 

WRITE (A- I 74  > 


L  7  4  E  0  R  H  AI(  0  X  -  '  C IINIOUK'  ) 

DO  .170  K  I  -  I  T 
.170  WRITE  (6-  t  /  3 )  K-LIL  (K> 

I.  73  F  ORMAT  (AX-  '  LEVEE.  <  '  -  I  I  -  '  >  .  '  »  I  0  -  4X  >  '  (  DBZ  )  '  ) 

W  R I T  E  (  A  r  1. A  V  )  C  0  MR  A  D ( 1  > - C  0  M K  A R  <  2  >  y  C  0  M  L  A 1  -  C  0  M  L.  0  N  0  » 

+  RADAR  (  I  RE  )  -  RE  AT  -  Rl.  0N0  -  HEAT  -  DEGNG 

I A 9  FORMAT ( ////2X - 'COMMON  ORIGIN  -  '-2A4-'  RADAR  SITE'/ 
+  IBX y  F7 . 4  »  ‘  N ♦  I  AT  »  F? . 4  y '  W.LONG'// 

F  2 X  -  '  M E  A S 11 R E M E N  IS  .  '  -  A 8  -  '  RADA R  S  I  T E  '  / 

+  1 8  X  y  F  7 . 4  - '  N . EAT ' -  IV . 1 .  '  U.LONG'/ 

F  VX r ' OFFSET ' y  F 1 0 . 4  - '  EM  N  '  -  F  1 0 . 4  -  '  KM  E '  ) 

I  FT..  AG =0 

COMPUTE  GATE  RANGES  ON  INITIAL  SCAN  AND  CHANGE.  IN  PRF 

101  CONTINUE 

DO  1.1:1.  I  =  1.  •  NRGR 
1. 1. 1  RANG  ( I V  - R D K M + R I  KM*  (  I  -  1. ) 

RETURN 

END 


SUHRUIFT  I  Nt  F  X  PAN  1 1  (  I  (THU  ) 


*.*  +  ****, t****************^**********#**#******#****#***************** 

NAMI  *.  E  XPAND 

I'POIIC  I  t  !  P  i  D 0 3 S  6 ;•  0  (FA A  > 

PURPOSE  :  K'l  AD  C  I  MARRON  I  N  I  F  ORATOR  DATA  TAPE: 

A  N  D  r  A I  ID  R  A  1 1  R  E  E  I.  E  P  T  I.  V  IT  Y  AND  D  0  P  F'  I.  E  R 

parameif.ro 

INIE  RF  ACES  t 

CAI  I.  I  NO  MOD.  DOPLRBO 
CALLED  MODS.  NONE 
INPUT  PARh. 

I  >  I  COD!  DIRECTS  PROGRAM  CONTROL.  IN  EXPAND 

1  NORMAL  PROCESSING 

10  FIRST  PASS.  INITIALISE  CONSTANTS 
00  IT  TIT  PARM. 

I  )  I  CODE:  DIRECTS  PROGRAM  CONTROL  I  N  DOPL  RBO 

0  END  OF  DATA  FILE.  END  PROCESSING 

2  NEW  PK'F  *  END  CURRENT  001  TIME  SCAN 
COMMON  BLOCKS 

A  ZENDS .  AZM » DEC  0  D  E  .  D  OP  LR.  F  I  IT  E  R .  f  I ..  G  S .  G  A  T  E  .  I B  AR,  INSUB.  . 

KNCTR .  NEW  GO  .  ORCOM  .  OIITPAR  •  PWORK  .  RADCOM  .  ICON .  UNUSE 

comments:  READS  CIMARRON  data,  expanded  integrator. 

AVERAGES  REEL.  DATA  BY  I A  OOP. 

AND  UNFOLDS  DOPPLER  DATA  IN  RANGE. 

0 F  R S I  ON:  1.0  D E C / 0  AX  11.  7 B 0 

date:  s/a/bi. 

design:  rk crane 

I'Rogmp:  gbgijbt  aeson 

**************  MM**************************************************** 

I  0 G I  c  A  l  F-  R C  E I...  L  .  P  R S I G  .  P R F  I X C  .  P R C I.  US.  P  R  S C  A N .  P R H E  A D .  PRN 0 1 S 
REAL #8  SUM 

CHARACTER*:?  INPUT  (4) 

I  N  T  F  G  E  R  'r  E  A  R .  D  A  Y  .  T  I M  E.  .IT  1 1  (  .  I  A  2  I 

INI  E  G  E  R  TRP  0  W  .  N  B  1.1  F  (  A  A  )  >  N  D  A  T  (  7  A  2 ,3)  »T»  T  S  .  T I .  HO 

1  N  T  E  G  E  R  B  .  C  .  B  E.  G I  NT.  E  N  D  I  »  B  D  AY  »  E  DAY 

DIME  NS  I  UN  CAL.  <  A  4 . 2  )  .  RVAE  (  380  )  .PURI  (380)  ,  PRT  (  4)  .  IGF  OLD  (  4  1  . 

F  RDEL (4.2) . H I NT  G ( 2 . 2 ) »ISN(2) . r  NORM ( 2 ) 

COMMON  /RADCOM/  YEAR. DAY.  TIME  » ITII..T  .  I A2I .  RDKM  .  R  t  KM . 

+  BEAWI . PWRBAR . RAWDAR 

C  0 M  M  0 N  /AZM /  AZM  U I H . D  A  7 E  S . A  Z  L AS  I . N  A . E  L E  0  A  T . B  »  C 

COMMON  /NEWCO/  ZI ( 380) ,01(380) , SI (380) . 

+  OMX . OMD . NRG . NR EC . NRGR 

COMMON  /GATE/  1A0GR 

COMMON  / 1  NS  LIB/  BEG  TNT.  END  ?  .  DEER .  SCON .  I  COMP . 

I  DA/M. BDAY.F DAY 

COMMON  /BOPLR/  ACS) ,IK5) > NSM . TSQ(20> . ISHR 
COMMON  /PWORK/  KMAX . T ( 1 00 ) . JMXDB . UMAX . I AMAX . I R . JR . 

!  IMXJMX.NCL  .NID.NIDP.  I. MX,  IMN 

COMMON  /TCON/  SETR I ,  RNGDI  Y  ,  SETEL. ,  RANG  ( 380  )  .  IHGT(380) 

COMMON  /ORCOM /  COMLAT . COML TING » COMHGT , COMRAD ( 2 ) 

COMMON  /  DE  CODE  /  UP  (  9  )  »  FIE  I  GUT  ,  DL.ONG  ,  DL  AT 


ll 


I 


to.-'  .1 

L  ill  IfUll'l  !  1  Dl  Hw 
CUrtMUN  /UNUSI  / 

!  i  I'.Ml'  I  !,  ' 

COMMON  /Oil  11  AR/ 
COMMON  /  A/I  NtiU  ' 


1  n  1  RMN  y  ARE AM N  (  I  I  MN  (  2  ) y  SVMX 

;  i  i. i  i  i  y  r u. . i  ki  i  zc  y  prci  us » prolan »  prhi  ad , i  i<Mt.)  i 

SUMN « NUM 
NPWC  y  Ni> I  R 

I  I  -  I  lit  2  >  y  K I.  V  I  *  .  I N  T  I  i  y  J  N I  D  A  (  2  y  J  02  4  >  y 
K  N  I  U M  (  2  )  y  K  N 1  DL  (  1  y  1 0  2  4  ) 

MODI  y  NOIIT  *  NOCTR  » NOTCH  ( .50  ) 

A/I  0  y  A  /  H  I  y  A  /  R  E  F  y  E I  0  W  y  E  I.  A  0  T. .  I R  A I !  A  R 


lil'll  MODI  <  5  ,*>  0  > 

RARAML  1 1  R  •.  I  II  OR  '21  « I  I  IMS  "23  y  IV0F'F=2  y  I  SOI- F  =  3  ) 
i  ARAM  I  I  I  R  (00  2  ~  0  ,  L  4  9  tt  9  A  2  5  y  C  0  =  2  9  9 . 9  7  2  2, ) 

F-' A RAME  I  ER  <  RE  AR  1 10  I  I  1 . 2  y  RPIi  ,  01 7453  y  FM2--9 , 8A9&  y  AMPK  =  1  000  ,  ) 

F •  A R  A M E T E R(NR 0 M  =  3 R 0  y  1 N R E F:  " 6 4  ) 

I  A  R  A  M  E  T  E  R  <  X  E  0  F  =  0  y  NO  R  M  A I ...  =  I  »Nt  W  P  R  E  ~  2  y  I N  I  I  A  L  J.  0  ) 

DATA  IN 0 T / 3 /  y  I P R T 0 /  I  /  y  I N  T 0 / -  I  /  y  P R T / 7 A 8  .  y  92 2  .  y  1. 0 7 5  .  y  I  2 2 9  .  / 

DATA  RDEL./-1 . 0  I  0  y  L  .  J  30  y  I  .  1  00  y  --1 . 250  y  - 1 . 300y  1  .  480  y  -  1  .  730  »  -  2 . 4 
DATA  HI  NT  8  /  '  NO'  y  '  RMAL  '  y  'EXE' A'  y  '  NDED '  /  y  NREC/O/ 

DATA  ISN/I y  1/y [NORM/1 .4/ 

DATA  INPU I / ' FI ' * ' E  2 ' y ' E  3 ' y ' F  4 ' / y IDEO/O/ y IERR/0/ 


IF  I . ACT-0 

I F  ( I  CODE. .  E.Q .  I N I T  At. )  GO  TO  11 
I  f  <  I C  0  D  E  .  E  Q  .NORMA  L. )  G  0  T  0  6 


OUTPUT  HEADER  INFORMATION  ON  CHANGE  OF  PRF  OR  INTEGRATOR 


IF (  . NOT . PRHEAD )  GO  TO  7 

U  R I T  E  <  6  y  1 7  0  )  El  I.  NTG  (  1  y  INI  )  y  H  INTO  (  2  y  INI  >  y  DAY  y  YEAR  y  TIME  yPRFy  WAD  E  C  M 
F  FRO  -  TRSPUR  y  CZER1  y  BE!  AW  I  y  SO  y  OMX  y  PULSE 

UR  I TE  ( 6  y  1 71 )  NRG  y  NRGR  y  RNGDI...  Y  y  SETRI  y  EL  DR  y  IGFOLD  ( 1  >  r 
4  I FOLD 

7  I  CODE. -NORMAL 
A  CONTINUE 

AVERAGE  LAST  20  UNNOTCHED  GATES  TO  COMPUTE  AVG  PUR 

1.05  DO  106  I -  NOB 20  y  NGBl 
N"-NDAT  <  I  y  I  ) 

I F  (  CAL.  ( N » 1 )  .  GE .  OFF )  GO  TO  I  OA 
SUMN= SIJMNFN 
NUM=NUMT1 
10 A  CONTINUE 

*  INPUT  TAPE  RECORD 

5  R E  A 1 1  (  I y  FN D ™ 1 0  y  E R R = 20)  MB U F 
DO  25  1=1 y I HREF 
25  NBUF  ( I )  MBIJF  <  I ) 

I  F ( NBUF  <  31 ) . GE . 32  )  GO  TO  55 
DO  30  I 1  y  7A2 
I REF = IN REF 4 ( I -1)*3 
DO  30  .1=  1  y  3 
I J=J+IREF 

30  NDAT  ( I  y  ,J )  =MBUF  <  I J ) 

1  FORMAT  ( 23 ( 100A1. )  y  A8A1  ) 

NREC=NREC+1 
GO  TO  AO 


A  2 


I 

c 


*1  ND  Of  RE  ('OK' 1 1 


10  CONTINUE 
C  l  USE  (  I.  > 

'll  III  10  I  IK  0  4  1 

OPEN  (UNIT  I  »  Pit  f  INPUT!  I  DEV)  •  FRR=1. 2  . 

I  I  ORM  MINFUKKAl  VI  D'  *  STATUS"  '  OLD  '  > 

00  TO  5 

0 

12  I  com  I  E. Of 

RF  TURN 

0 

C  *PAR  I  I  Y  E  RRllR 

c: 

20  CONTINUE 

ur  i  ri.  <<•>.  i  oooo  >  NRt:o 

10000  FORMA  I  <  I  HO  v  PARITY  ERROR.  RECORD  '  .  1 .1 0  ) 
i  E  RR’  ”  l  E  RR  11 

IF!  I  E R R  .  0  I ,  .1 00)  (3 0  TO  1. 2 
(50  TO  5 
C 

0  *U  I  HI  POISE:  will  TEE 

C 

f>b  NPUONPUCI  I 
GO  10  5 

c 

C  TEST  FOR  INTEGRATOR  (NBUF <21  )~2  I.  ) 
c  OR  TIME:  SERIES  (NBUF<21  )«23) 

c 

60  continue: 

I F  <  NBUF  (21).  EO  .  I  TERR )  GO  TO  90 
I F  < NBUF  ( 2 1. )  . FQ  .  I  IMS  )  NSER  -NSER 1 1 
GO  TO  5 
C 

C  *  NOE:  MAE  PROCESSING 
C 

90  CONTINUE 
C 

C  DEFINE  TIME  AND  TEST  FOR  CORRECT  DATA  TIME  INTERVAL 

C 

1 1  ME- ( ( < ( NBUF <  4 )  # I  01 NBUF ( 5 ) > * 1 01 NBUF (  6  >  )  *  1 OP NBUF <  7 ) ) 

+  *10+NBUF(8) >*10PNBUF<9> 

DAY  = ( 10*NBIJF ( 1 ) ENDUE  <  2 ) ) *10 1 NBUF ( 3  > 

IFdiAY.LT.BDAY. OR.  (DAY. EO.BBAY.AND.TIME.lt. BEGIN!)  )  GO  TO  fi 

C 

c 

F  INITIALISE  CALIBRATION  CONSTANTS  ****CIMARRON**** 

C 

IF(  I  CODE.  I  I .INI  TAD  GO  TO  TOO 

RLAT“35 ,47533 

R  LONG =9  7. 81 31. 4 

HEIGH  1=0. 39939 

Dt AT® <  RLAT-COML AT ) *REARTH 

DL ONG-~  (  COMLONG  RI..ONG  )  *RFARTH*COS<  COMLAT *RPD  ) 

C 

YEAR =80 
NRG =7 A 2 

INTO  JMOIK NBUF (31 ) .32) 

INTO® INTO /l All 


A3 


c 


mi  im  tfcr  .if  i  Hi  i  (:  k  r  or  iv  an  lit:  incremf  n  r  cam:. 


S  i  U PR  T=CV2/PR  I  <  1  ) 

m  awl  o.m 

HI  AW  I  P  BtAWI*RFD 

HI  AW  l  2=  I  .  -  <  RAW  I 2#  BE  AW  1 2  > 

czt  iv  0-1.02. 76 
i  rbpwr=i  o .  *ai  or.  i  o  <  7 so .  ) 

OFF  SE  T  -  < :  / 1  I •: n  nvsrwiv 

INPUT  IVh  C'f:  1 VI  [i  POWER  CAI  I  BRAT I ON  TABLE 
IV  F  WIN  II  4 

RE.; AD  (4*4)  (  CAL  (  I  *  I  )  »  I~1  *  64  ) 

4  FORMAT  (FIFA.  I.  > 

DO  SO  1=1*64 

so  cal  ( :r *  :i. )  =cal  i  i:  .  i  )  +  offset 


100  CONTINUE 

DEFINE  BEAM  ORIENTATION  (TILT  AND  AZIMUTH) 


IAZI=(  <  10*NBUF(10>  +NBUF( 11 )  )  *10  FNBIJF  <  .1.2)  )*10+NBUF<  13) 

I T  I  L  T =  1 0*NBUF  <  1 5 )  +  N BUF  (16) 

I F  <  NBUF  <  I  4  )  .  EC) .  4S>  I T I  IT=-  I  TILT 

IF  <  NBUF ( 1 4 ) . NE . 45 )  I T I LT=1 00* NBUF (14)  + 1 T II  I 

IF  NEW  PRF  OR  NEW  INTEGRATOR*  FORCE  NEW  VOLUME  SCAN  ( I CODE- 2) 

I  F’RT --.JhOD  <  NBUF  (31)  *16) 

IPRT=IPRT/4+ 1 


I NT  =  1  *  NORMAL  INTEGRATOR 
I NT  =  2 *  EXPANDED  INTEGRATOR 


I NT= JMOD ( NBUF ( 3 1 ) *32) 

I NT = I NT /l 6+1 

I  RADAR --NBUF  (21.)*  I.  BN  ( INTO ) 

IF<  IPRT.EO.  IPRTO.  AND.  INT.EC).  INTO)  GO  TO  101 

IPRTO--IPRT 

INTO -=  I  NT 

IF  (I  CODE.  EC).  NORMAL)  I  CODE --NEW  P  R  F 
F" R 0 "27 00 + 1 0 *NBUF  (.  37)  +NBUE  (  38  ) 

WAVEL=CV/FRO 

PRF "■  1 .  E6/PRT  ( IF'RT  ) 

DEFINE  SAMPLING  REGION 


IF  OLD-- 1  NORM  ( INT) 

I AVGO= I AVGR* I FOLD 

DAVGR  - 1 . / 1 AVGR 

DI V= 1 . /IAMGD 

»IVS=1 . / ( I AVGD*32 . *32 . ) 

NRGR=NRG*DAVGR 

IF  (  NRGR .  GT  .  NRGM  )  NRGR--NRGM 

NGBL.=NRGR  •  1 

NGB20-  NGBI  -  20 

NCL -NRGR+2 
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1  MX  NRGR+ 1 


rangf  nHfly,  fn  of  prt  and  integrator  type 


RDKM  RDEI  ( I PRT » IN  T  > 

RNGIU  V  RDKM* AMPK 

RANGE  INCREMENT  < IAVGD  SEC  E~6 )  *  < PRT /BASEPRT )  *  <2*0 

R  I N  M  -■  I  A  V G  V * P R T  <  I  PRT  )  *  S  I  DPRT 
BE TR I ~Rl KM#AMF'K 
DR I KM™ l . /El KM 

compute:  range  interval 

DMIN=RIKM*  *  5 
NMIN--1 

DO  tit  I  1 1 NRGR 

RANG  < 1 >- RDKM+RIKM*< It  > 

IP < RANG ( I ) .GT.DMIN)  GO  TO  110 
N  MIN -HI 
GO  TO  111 

110  R  V  A  L  ( I  )  ~  2  0 .  *  At ...  0  G 10  (  RANG  <  I  )  ) 

111  CONTINUE 

EXPANDED  INTEGRATOR >  DETERMINE  POSITION  OP  FOLDING  OFFSETS 

NOCTR“NMINU 
DO  18  1=1 i NOCTR 
18  NOTCH < I )™I 

IF  <  I  FOLD .  EO  <•  1 )  GO  TO  17 

IN0T=NMIN+2 

FI.DR-PRT  <  I  PR  T  )  *CV2 

N  R  GD  ~F  L D R  * DR I K M + . 5 

DO  15  N--1 * I  FOLD 

IR~NRGD*N-1 

ELIMINATE  GATES  IMMEDIATELY  AROUND  FOLDING  OFFSET  FROM  PROCESSING 

DO  14  1  =  1  LINO  T 
NOCTR"- Not:  TRtt 

14  NOTCH  (NOCTR)  - I RH 

15  I GF'OLD  <  N ) -IR 
GO  TO  16 


NORMAL  INTEGRATOR*  NO  FOLDING 

17  IGF0L.D(1  )=NRGR 
NOCTR- NOCTR+T 
NOTCH! NOCTR )  NRGR 
NRGD  NRGR 

16  CONTINUE 

IF (NOTCH (NOCTR) .EE. NRGR)  GO  TO  13 
NOC TR-NOCTR - 1 
GO  TO  16 

VELOCITY  Rf  SOI  l.l  T I  ON  <SV>  =  WAVEE/4.  *  PRF  *  (1./31.) 
13  VMX~WAVET  74.  *  PRF 


9MD  1 

bV-'Vhx/  3  i  . 

SPRt  All  FT  HOI  !.J  1  I  ON  <  SU2  >  VMX*VMX*?/  (  P 1  *F'  J  > 

SOL!  UMX*OMX*2  >/P  12 
S  U  M  X  ~  S  G  R  T  (  tt  0  2  ) 

SUMX--  .  9 *80 MX 

PULSE'S  PER  RESOLUriON  ELEMENT 

PULSE-' <  (10*NBUF(26)  I  NBUI-  (  27  )  >*!  0  ENDUE  (20)  )  *1 01  NBUE  (  2V  ) 
RUO TP  I ./SORT (PULSE) 

INITIAL. I 8 E  I  El R E S El 0 1.  D  L. E 0 E I.  S 

AUGPUR=OF  F  SET  C ZERO 
PWRBAR~AUGPUR  OEESE  I 
0FF=18.*R00TP+AVGPWR 
R  T  H  R  S = A  V  G  F:'  U  R  f  5 . 

UTHRS-  AUBPURi  1 0. 

ST  HR  S- AUBPUP  115. 

VNO.I  SE-VTHRS+5 . 

S  N  0 1 S  E “STM  R  S  E  5 . 

OUTPUT  HE A HER  INFORMATION 


IF(  ICODE.LT.  INITAL)  BO  TO  101. 

IF  (  .  NOT  .  PR  HE  A  El )  BO  TO  102 
WAVE  CM==  WAVE  L.  *100. 

CZER1  =  --CZER0 

ur :i: te  ( 6 > 1 70 )  ei :i; n  ro  <  i  *  i nt  ) * n into  <  2  *  int  ) * *  day  *  year  * r  1:  me  *  pre  *  uavecm 

+  FRO  *  TRSPWR .« C7ER 1 * BEAWI  f  SO * VMX * PULSE 

1 70  FORMAT ('1V//7X*'*  C I MARRON  *  '  * 

E  5X * 2A4 * '  INTEGRATOR ' //3X i ' DAY ' » 14 y  '  19' *12* 

1  3X t ' . - ' * 3X *10.6* '  CST ' //5X * ' PRE  . .  ' , F8 . 2 , 

E  '  (  /!3 )  '  /5X  *  '  UAUE  LNGTH  '  *  F  8 . 2  y  '  (  CM )  '  /5X  y 

+  ' FREQUENCY  — -  ' *  F  8 . 2  * '  ( MHZ ) V5X *' TRANS  PUR  - .  '» 

E  F  8 . 2  * '  (  DBM )  '  /5X  *  '  NO  I SE  L.VL  .  '  *  F8 . 2  *  '  ( DBM )  '  /SX  y 

•f  'BEAM  UIDTH  -  '  *  F  8 . 2  *  '  (  DEG )  '  /SX  *  '  OEL  RE  SOI  N  -  '  *  FO  .  2  y 

*  '  ( M/S ) ' /SX * ' MAX  VEL  .  ' * F8 . 2  * '  (M/S ) ' /5X * ' SAMPLES ' 

I  '  .  '  *  F  8 » 2  * '  (/GATE)') 

UR  I  TE<  6*  17.1  >  NRG  *  NRGR  y  RNGDL Y  *  SETRI  *Fl.DR*  IBFOL.D(  1 )  * 

+  I  FOL  D 

171  F  ORMAT ( SX  * ' BA  TEH  - .  ' y I5/5X * 

E  'ELEMENTS  .  '  y  IS/SX  y  '  RNB  DELAY  '  »F8.2*  '  (M)'/5X* 

E  ' RNG  I NCR  -  ' , F 8 .2* '  ( M ) ' /SX * ' FOLD  RNB  - ' * F 8 . 2 y 

+  '  (KM) '/5X* 'FOLD  BATE  -•••-•  '*I5/5Xy'NUM  FOLDS  '*15) 

I F ( BDAY . BT . 0 )  UR I TE (6*1 72 )  BDAY  *  BEG IN  F  *  EBAY  *  ENDT 

172  FORMAT  (SX*  'BEGIN  DAY  —  '*  I5/3X  y' BEGIN  TIME  ••••  '*18.6*'  (CST)'/ 

E  5X * ' END  DAY  — 'yI5/5X,'END  TIME  .  '*18.6*'  (CST)') 

UR  F  IE  (6*1  69  )  COMRADd  )  *  COMRAD  (  2  )  *  COME  AT  *  COMLONG  * 

+  RL.  AT  *  RL  ONG  *  M  AT  *  M  ONO 

169  FORMAT (////2X* 'COMMON  ORIGIN  -  ' *2A4* '  RADAR  SITE'/ 

+  1 8X  >  F  7  »  4 , '  N.LAT' »F9.4* '  U.LONG'// 

+  2X* 'MEASUREMENTS  . .  CIMARRON  RADAR  SITE'/ 

+  1BX.E7.4. '  N.LAT' *F9.4* '  U.LONG'/ 

1  9X*  'OFFSET'  *F.1.0, 4*  '  KM  N'*F10.4»'  KM  E'> 


IF  L  AG- 1 


10?  I  CODE  -  NORMAL. 

ioi  continue: 


c 

C  CAl  I  UK  ate: 

t; 

f  A  OF  RAGE'  BY  I  AVGR »  REFLECTIVITY  DATA  <  M  :  1  ) 
l 

c  re: FI.. ( dbz. )  =••  RCVD  PUR (DBM)  *  10L0G(R**2>  -  TRNS  PUR ( DBM )  1  NOISE 

c 

1.20  M  •:  I. 

N-"l 

NOT  NOTCH (N) 

C 

C  NOTCH  OATES  IMMEDIATELY  AROUND  FOLD  RING 

C 

DO  130  1=1. NR OR 
PURI  C I  )~-99V. 

VI (I > -  999. 

ZI  <  I  )  -■=■■•999  . 

SI ( I )  0. 

IF  <  T  .EG.  NO  I  )  00  10  129 

C 

J  R :  (  I  l  )*IAVOR 
F'UR "  0 . 

DO  135  .J"  1 » 1 AVOR 
K  H  JR 

I  35  F'UR  FUR*  CAL  (  NDA  T(K»M)»1) 

PUR-PUR* D AVGR 

I F <  PUR . OT . R T  HRS )  71(1) =PUR FRVAL < I ) 

F'UR  I  (  T  )  "  PUR 
00  TO  130 

c 

12 9  N  NH 

IF (N.OI . NOCTR )  N-NOCTR 
NOT  "'NOTCH  <  N  > 

130  CONTI  NIK 

C 

C  UNFOLD  POSITION  Of  VELOCITY  DATA  OVER  IF 01  D  RANGE  BLOCKS 

C 

131  N=2 
M "  3 

DO  140  T~NMIN*NRGD 
PURMX-PURI ( I ) 

I MAX- I 

IF  ( IFOLD.LT.  2)  GO  TO  14/. 

DO  145  J-l t IF  OLD 
K” I  FI OF  01 D( J) 

IF ( K  . GT . NRGR )  GO  TO  146 
PWR-PWRI ( K ) 

IF (PUR.LE.FURMX)  GO  TO  145 

PURMX-PUR 

IMAX-K 

145  CONTINUE 
C 

C  SUBJECT  VELOCITY  DATA  TO  RAW  POWER  THRESHOLDING 
C 

146  CONTINUE 

I F  ( F'URMX  .  LE  .  VTHRS )  GO  TO  140 
C 

C  CAl  I  BRA  IE  %  AVERAGE  VELOCITY  <N=2>  AND  SPREAD  (M-3)  DATA 
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i  "i  I  I  h  .INI,  A i  Hi.  RANGE  ■’  4  .  5  :  '.'I  I  lif.l'KH  N 

i  1.1(1)  21  RF  Sill  N  note  2  (I  (J  VAI  *4  2)  *  PRF  L'/U'KI  I  HO  I  SI  )  ) 

c 

r  p  •  i i  i )  *  i:  avo  n 

r 

(  RAH  VI  I  IS  OF  F  SI  I  1  ROM  IN  If  ORATOR  IN  RANGE  BY  J  01  HI 

r,  non  sprd  is  offset  f  rom  into  orator  in  range  by  isoft 

c 

! V  I  R  f  I  OOF  I 

i  s  i  k  ;  i '.)('(  i 

IF  n  U  )  t  AVON  .01  .  NRG  .  UR  .  I  OF  I  AVON  .  01  .  NRG  )  GO  TO  :l  TO 

V  0  . 

0  0. 

NO  150  J  ::  1  f  I  AVON 
KV  OF  IV 
KG  IF  TO 

V  VF  1  NBA  I  !  K  V  »  N  )  3  I.  .  5  )  *SV 
SPD-NDAT  ! KB  *  M ) 

150  S-S4SPD*8PD 
SI2-S*0 TVS 

A  N  0 1 S  E  =  1. 0  .  *  *  (  (  A  V  0  P  U  R  » 0 1  I  S  E.  I  )  / 1 0  .  > 

RE  CP  UR -.1 0  ,**(  !  PWRMXFOFF  SET  )  / 10.) 

P U R C 0 E F  R  E  C  P  W  R  /  <  RECPWR  AND  I SE  ) 

C 

V  SUBJECT  1ST  3  GATES  IN  EACH  BLOCK 
C  TO  NOISE  THRESHOLDING 

C 

S  1  MAX-0 . 

IF (I .GT.3)  GO  TO  160 
I F  <  PLIRMX  .  GT  .  SNO I  SE )  GO  TO  161 
IF IPWRMX.GT.VNOISE)  GO  TO  162 
GO  TO  140 
C 

c  compute:  doppler  spread  and  nc  <mai  :i:se  by  1/2  beawikrangfkm) 

c 

160  CONTINUE 

IF  CPURMX.LE.STHRS)  GO  TO  162 

161  SI  MAX-  SV2  *  <!.-(!.  --SI2  >*PWRCOEF )  *  BEAW12/ ( RANG  ( I )  *RANG  ( I )  ) 

IF ! SI MAX . GT . 0 » )  SI ! I MAX) -SI MAX 

162  VI ( IMAX)~V#DIV 
140  CONTINUE 

C 

C  OUTPUT  PREPARED  DATA  TO  DISK 
C 

WRITE  ( 2 )  TIME ,  DAY  t  YEAR  ?  IAZI 1 1  TILT  * RE AT  » RLONG  » HE  I  GIFT  r  BEAT  . 

4  D L. 0 N G  *  I R  A D A R  » B E A W I  r  IPRT » INT  *  FRO  r  WAVEL » PRF  » 

4  PWRBAR i RAUBAR » PULSE  » AVGPWR  *  WAVECM > TRSPWR  > 

4  CZER1. » NRG .  NCL  >  I  MX  .  NRGR  *  NOCTR » FL.DR » NOTCH  > 

4  IGFOLDIl ) *  I FOLD v  RDKM » R I KM  t SETR 1 1 RNGDLY  » 

F  UMX i VMD r SV , SVMX » SUMN *  NUM  r  NREC » I CODE 

C 

IF ( NEWPRF  .OR.  IFLAG.EO.l)  URITEI2)  RANG 
WRITE (2)  ZI 
WRITE! 2)  VI 
WRITE! 2)  SI 


RETURN 

END 


S  IJ  b  R  0 II T I NE  EXFAN  D  (  I C  0  D  E  ) 

NAME  J  EXPAND 

project:  er  r  B03S-620  <eaa) 

purpose:  READ  NORMAN  integrator  data  tape 

AND  CALIBRATE  REFLECTIVITY  AND  DOPPLER 
PARAME IERS 

INI  E!.R  FACES  J 

CALLING  MOD.  DOPLRBO 
CALLED  MODS .  NONE 
INPUT  FARM . 

I)  I  code:  directs  program  control,  in  expand 

1  NORMAL  PROCESSING 

10  FIRST  PASS.  INITIALISE  CONSTANTS 
OUTPUT  PARM. 

1.  )  I  CODE  •  DIRECTS  PROGRAM  CONTROL  IN  DOPLRBO 
0  END  OF  DATA  FILE?  END  PROCESSING 

2  NEW  PRF  ,  END  CURRENT  VOLUME  SCAN 
COMMON  BLOCKS 

A  ZENDS .  AZM  *  DECODE .  DO  PER' » Fit.  TER  »  FI...  OS  f  GATE  ,  I  BAR  >  INSUB  » 
KNCTR . NEWCO . ORCOM » OUT PAR » PWORK . RADCOM . TCON . ON USE 


comments: 


version: 

date: 

design: 

PROGMR : 


READS  NORMAN  DATA.  EXPANDED  INTEGRATOR. 
AVERAGES  REEL..  DATA  BY  IAVGR. 

AND  UNFOLDS  DOPPLER  DATA  IN  RANGE. 

1.0  DEC/ VAX  11-780 
3/6/81 
RK CRANE 
GBGUS I AF SON 


************** ******* **#**##**#**  I*####***##***#***#######***#******** 

LOG I CAL  PRCELL . PRS IG » PRF I XC . PRCLUS t PRSCAN , PRHEAD , PRNO I S . 

♦  PRINT  1 . COPLOT » CEPLOT * CONTRZ » CONTRV . CAL  1  BO . PROVER 

REAL iH8  SUM 

CHARACTER*:/  INPUT  (  4  ) 

INTEGER  YEAR . DAY . T IMF . I  TILT . I AZI 

INTEGER  TRPOW r  NBUF ( 46 ) . NDAT <  762 , 3 ) » T . TS .  T I » HV 

INTEGER  B . C . BEGIN! . END! . BDAY . EDAY  \ 

D I MENS I ON  CAL (64.2). RVAL ( 380 ) . PUR I ( 380 ) . PRT ( 4 ) . I OF  OL  D ( 4  )  , 

F  FT.  DR  (  4 )  ?  RDEL  (4.2)  » HINTG ( 2 » 2 ) .  TRSPWR  (  2  )  . 

+  CZERO ( 2 ) . I NORM ( 2 ) . ISN ( 2 ) 


BEGIN!. END! . DEI.  R.SCON. ICOMP. 
DAZM. BDAY. EDAY 


COMMON  /IN SUB/ 

J. 

COMMON  /KNCTR/  I  T  .  I TL.  ( 2 ) .  KL.VI  .  .IN I D .  JNIDA  (  2 , 1024  )  . 

F 

COMMON  /RADCOM/ 


COMMON 

COMMON 

I 

COMMON 

COMMON 

COMMON 


/AZM/ 

/NEWCO/ 

/GATE/ 

/DOPER/ 

/PWORK/ 


KN  f  DM  ( 2  )  ,  KNI  DL.  (1,1024) 

YEAR, DAY, TIME,  ITIL.T,  IAZI  .RDKM.RIKM. 
BE AW I , PUR BAR , RAWBAR 
AZMUTH ,  DAZES ,  AZLAST  ,  NA  ,  El.  EVA T  ,  B ,  C 
Z I <  300 ) , V I ( 380 ) , SI ( 380 ) , 

VMX  ,  VMD ,  NRG ,  NR  EC ,  NR'GR 
IAVGR 

A ( 5 ) , D ( 5 ) , NSM , ISO ( 20 ) , I SHR 

KMAX»T(  100) ,  JMXDB,  UMAX,  IAMAX,  IR..IR, 
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r  —  ^ 


COMMiiN 

'  f i  1. 1  I .  i  ■ 

1  MX  TAX  y  NCI.  y  N  1  D  y  N  1  DP  y  I  MX  y  T  MN 
SF  T  R  t  » IT  NODI  Y  ,  SI  I  EL  >  RANG  <  387 

) y  1  HOT ( 382 ) 

COMMON 

/ORCI)M  / 

COM).  A  I  y  COM!  UNO  »  COM  HOT  y  COMRAD  (  2  ) 

COMMON 

/D‘  ’.CODE/ 

OF'  i  9  )  V  HE  I  GH  I  y  DL  ONO  y  DLAT 

COMMON 

/T  TI  T  I  Ti/ 

1  A  1  RMN  y  ART  A  MM  -  CEI  MN  <  2  )  *  SO  MX 

COMMON 

/ft  (,s/ 

P  R  l '  E  L  1...  y  P  R  S 1 0  y  P  R 1  1  X  0  -  F:'  R  C 1.  US- 

'RSC  AN  -  PRHEAD  - 

COMMON 

F  ARM  ' 

PR NO T 8- PROVEN 

1 '  R INTI  y C  0  P 101. C 1  P 1  OF  y C 0  N  F R  Z 

-  CON  I  RV  -  CAI  1  D0« 

COMMON 

/  OUT  PAR.-' 

NOME  - NUMR 

MOO T -  MOOT  - NOC 1 R -  NO  1 CH ( 30 ) 

COMMON 

/ [PAR/ 

SUMN-NUM 

COMMON 

■  A3  LMDS./ 

A/I.  0 »  A  / 1 1 1  y  A  /  R  E 1  .  E  LOW-  E  I.AVE- 

I  RADAR 

COMMON 

/UNO St.  / 

NI  'UC  vNGEK 

Dr FE  MDUF (2332) 

PARAMETE  R  ••  I  T  I  OR  =  :l  3  y  I  f  I  MS  1.5  *  I  VOR  ~ 2  >  IS0FF=2  ) 

I-'  A  R  A  M  [.  T  E  R  (  C  V  2  ;  0 , 1  4  9  B 9  6 2  5  .  C  V = 2  9 9 . 9  7 2 5  ) 

PARAMETERS  E  A  R  I  H-  I.  1. 1 , 2  »  R  P  D  =  .  0 1  7  453-  P  I  2 = 9 . 3  A  9  A  *  A  M  P  K  1.  OOO.) 

P  A  R  A  M  E  T  E  R  <  N  R  G  M  3  B  0  -  I  N  R  E  F = 4  A  ) 

P  A  RAM  E  I  E  R  (  .1.  E  0  F = 0  y  N  0  R  M  A  E  =  1  y  N  E 14  PR  F  •=  2 I N I T  A I ...  =  1 0  ) 

DATA  I!  NOT  /  3  /  »  t  P  R  T  0  /  - 1.  /  -  I  N  T  0  /  ■■■•  1  /  y  P  R  I  /  7  A  8  .  «  9  2  2  .>10 7 5  .  .  I  2  2  9  .  / 

I)  A  T  A  R  D  E  L  /  -  .  3 1  0  >  .  1  9  0  >  -  .  1 3  0  >  -  .  1 3  0  >  -  ..  3 1  0  -  -■ .  3 .1  0  *  -• .  1  8  0  >•••■.  1 A  0  / 

DATA  HINTS/ '  NO ' - ' RMAL ' > ' EXP A  - - ' NDEH ' / - NREC/O/ 

D  A T  A  I N OR M/ 1.  >  4 /  >  I S N / 1.  >  1  /  >  N  T R I P 0 / •- 1  / 

DATA  INPUT / '  F:l. '  >/F2'  >  'F3'  >  'F4  '/>  IDEWO/>  IERR/0/ 

c: 

I  F  I  AO -0 

IF  (ICOIIE.EO.INITAL)  00  TO  11 
IF  (ICODE.EO,  NORMAL.)  00  TO  A 

8 

C  OUTPUT  HEADER  INFORMATION  ON  CHANGE  OF  PRF  OR  INTEGRATOR 

C 

IF-  <  .  NOT  .PRHEAD )  GO  TO  7 

WRITE  <  A>  1.  70)  HINTS  (  1.  >  INT)  .  HINTS  (  2  » I  NT  )  >  DAY  >  YEAR  >  T  IMF  >  PRF ■  >  WAVECM  > 
+  FRQ>TR S PWR(INT) > C 2 E R 1 -  B E  A W I > S V » V M X > PUL S E 

WRITE  (  A  >  171 )  NRG  >  NRGR  >  RNGDL  Y  >  SETR 1 1 FLDR  ( I  F'RT  )  >  IGF  OLD  ( 1  )  > 

+  I FOLD 

7  ICODE-NORMAI.. 

6  CONTINUE 
C 

C  AVERAGE  LAST  20  UNNOTCHED  GATES  TO  COMPUTE  AVG  PWR 

<:: 

105  DO  10A  I  "NGD20  >  NODE 
N=NDAT  < I  >  I. ) 

IF ( CAL ( N r INT ) . GE . OFF )  GO  TO  10A 
SUMN=SUMN+N 
NUM  -NUM+I 
.1.0 A  CONTINUE 
C 

C  * INPUT  TAPE  RECORD 

<:: 

5  READ  (  I  >  END=  1. 0  >  ERR  "20 )  MDUF 
DO  25  1  =  1  fINREE 
25  NBIJF  <  I )  -MDUF  ( I ) 

IF  <JMOD<NPUF< 26) >32) .GT.16)  GO  TO  55 

DO  30  J=l>3 

JREF  " INREF+ <  J-l ) *762 

DO  30  1  =  1 >  762 

I  J=  IE.  FREE 
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<0  NDA  F  (  T  .,I)=MBUF(  T  J) 


I  I-  01 
NRE 


ma  r  ( :>;*<  1 00 A  I  )  .AHA!  ) 
C=NRFC  H. 


e 

r: 

c 


BO  If)  AO 

*FND  OF  RFC OR  1 1 

10  CONTINUE' 

Cl  OBI.  (  I  1 
1  I  IDEV--IDEVM 

0 P E N  <  UN  I T  I  •  F  I  l  E  =  INPUT <  I D EM>  .  F R R  =  1 2  . 
+  F  0  R  M  =  '  0  N  F  0  R  h  A  T  T  F  D  '  »  S  I  A  T  U  S  =  '  0  L.  D  '  > 

GO  TO  5 


12  I CODE =IFOF 
RETURN 

* PARITY  ERROR 

20  CONTINUE 

WRITE (  7.  lOOOONREC 

10000  FORMAT < 1 HO. '  PARITY  ERROR.  RECORD  '.110) 
I  ERR"- 1  ERR  F 1. 

IF ( I ERR. OT. 100)  GO  TO  12 
GO  TO  5 


c: 


c 

c 

c: 


c 

c 

c 

c: 

c 


♦WIDE  PULSE  WIDTH 

55  NPWONPWC  +  l 
GO  TO  5 

TEST  FOR  INTEGRATOR  ( NBUFC 1 ) =1 3 > 

OR  TIME  SERIES  ( NBUF  ( 1 )  :::  1 5 ) 

AO  CONTINUE 

I F ( NBUF < 1 ) , EO . ITEGR )  GO  TO  90 
I F ( NBUF i 1 ) . EQ . I T IMS )  NSE  R  NSER+ I 
GO  TO  5 

* NOR MAE  PROCESSING 
90  CONTINUE 

DEFINE  TIME  AND  TEST  FOR  CORRECT  DATA  TIME  INTERVAL 

TIME- (  (  (.( NBUF  <  2  >  #  1 0+NBUF  <  3 )  >*10+NBIJF<4)  )  *10+NBIJF  ( 5 )  ) 

+  *  1 0+NBUF  < A  )  )  *  1. 0+NBUF  ( 7 ) 

DAY ( 1  0*  JMOD  (  NBUF  <  23  )  .  4  )  +  JMOD  (  NBUF  <  24  >  » 1 A ) ) *1 0+ JMOD  (  NBUF  <  25  )  »  1 A  > 
I F  (  DAY  .  L.T .  BDAY  •  OR  .  < DAY . EO . BDAY . AND . TIME . LT . BEGINT >  )  GO  TO  5 

INITIALISE  CALIBRATION  CONSTANTS  ****NORMAN**** 

IF<  tCOTiE.LT.INITAL)  GO  TO  100 
DO  21  1=1.4 
21  FL.DR  <  I )  =CV2*PRT(I ) 

F<  L  A  T  -  3 5 . 2  3 A  5 1 

RL 0NG=97.4A333 

HEIGHT  0.3 A9 7 

BEAT  =  (  RL.AT-  COMLAT  )  *RFART  H 
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I 


U!  !IM(.  (i'Uhl  Rl  ( INB  >  *RL  AR  1 1  LUPUS  <  POML.A  I  *l-:l  'D  > 


y I  Ai  ::«> 

NKi . 

I  N  i  ■  i  i  IMt  Rk!  'I  .  1>  .  I  6  ) 

INK)  li'l  ii/!;  I  I 
l 

c  hh  i in  i  i'H  nm  i  iri  llr  i  ok  range  inore  mini  cam.. 
c 

n  in  k  i  cun  i  k  i  ( i  > 

r 

HI  AW  I  -  O  .  0  l 

HI  AW  1  lit  AW  I  *RPH 

HI  AW  I  2  -  I  .  /  <  BE  AW  I  2* BE AW  l 2  > 

I' 

C  I  Mill  T  R  E  C I  I  V I  u  k  0  W  E  k  C  All  H  R  A  T  I  0  N  (AH  L.  E 

C 

RE  W  I  NIJ  -1 
DO  40  .MM  2 

RE:  AH  (  4  f  .It )  V  7  E  R  OlJO  I  P  W  k 

3  F  0  R  H  A  T  (  3  5  X  ,  I  6  .  t  y  F  6 . 0  /  ) 

RE  AH (4*4)  < CAL ( I  «  J ) y I  "  I  y 64 ) 

4  FORMAT  ( 23X  y  8F6 . 1 ) 

T  R  S  P  WR  <  J  )  =  10.ILAI  0  0  I  0  (  I  P  W  R  ) 

OF F  SET “C ZERO  (  J  )  t  I  RSPWR  < .)  > 

00  50  I  1  y  64 

50  CAL (I y  J ) -CAL <  l y  J ) -OFFSET 
40  CONTINUE 

c 

100  CONTINUE 

c 

C  DEFINE  BEAM  ORIENTATION  (TIIT  AND  AZIMUTH) 

C 

IAZI" ( < 10*JM0D<  NBIJF  (8> y  4 ) ENDUE ( 9 ) )*1 .O+NBUF ( 10 ) > *1 O+NBUF < 1 1 ) 
I  7  IL  T~  1 0*NBUF  <  1 3  )  ENBIJF  ( 1  4  > 

I F  (  NBIJF  (12)  .E0.45)  ITILT"  I TILT 
I F ( NKUF ( 1 2 ) . NE . 45  >  I T I L T  ~ 1 00*NBUF (12) f I T 1 1  T 
C 

C  IF  NEW  PRF  OR  NEW  INTEGRATOR  y  FORCE  NEW  VOLUME  SCAM  (IC.0DE~2> 
C 

IPRT- JMOn  (  NBIJF  (  27  )  .  64  ) 

I  PR  T  I  PR  7  /  J  6  J  1 

c: 

C  INT=1  y  NORMAL.  INTEGRATOR 
C  I  NT -"2  y  EXPANDED  INTEGRATOR 

C 

INT~  ,.IMOn(  NBIJF  (27)  y  16) 

I NT "I NT/8  I  I 

NTRI P=NBIJF  ( 29  )  / 1 6 

IRADAR=NBIJF(1  >*ISN(  INTO) 

IF( IPRT.NE. IPRTO  .OR.  I  NT. NE.  INTO)  GO  TO  75 
IF  ( NTRIP .  NE  .  NTRIF'O  .AND.  INT.EQ.l)  GO  TO  70 
GO  TO  101 
C 

C  COMPUTE  CALIBRATION  CONSTANTS 

<:; 

75  IPRTO- IPRT 
INTO" I NT 

IF ( I CODE . EQ . NORMAL )  IC0DE=NEWPRF 
PRO =2850 . 


72 


UIAUI  I  CO 'F  RO 

I'RF  I  .f  A/PRI  (  IRR1  ) 

m  f  i  ni  samfi  inc.  ri  g  i.un 


I  F  III  II  1  NORM  (  INI  I 

I  AOCH  I  AOi,k*IF  OLD 
DAOI.R  -  1  ,  I  A  Mil  I.; 

H  HI'  1,  .  /  I  AOUU 

n  i  os  i , '  (  iavgh*.^’  ..  *o.' . ) 

nrlir-  Nki.*PAOGk 

I I  (  NKOR  .  n  I  .  Nk  T.fi  I  Nkl.k  NRGM 
NO  HI.  NR  OR  I 

NT.H.'O  NO  HI  I’O 
NI  I  NKORf 
I  MX  -  Nkl.k'  I  I 

kANI'.I  INTREMFNI  . :  *  I  AOGD  SEC  t.  A)  *  <  F'RT/BASEPR  I  I  *  (0/7  » 

k  I  k M  ::  1 AOGD*PR I  (  I  Pk  I  )  *31  liPRT 
Sk  i  PI  ki KM* AMP K 

I ik  I  KM  - 1  .  /RIKM 
IiM  IN  -  k  IKM*  .  5 

MM  I  N  -  <  DM  I N  RIIPL  ( IPRT  . INI  )  )*HRIKM  I  .5 

NOT  I R-NMI Nil 
HO  IB  I  J.  .NOCTR 
I  B  NOTCH (  :n  =  i 

IF  •:  I NT. EG.  1  )  GO  TCJ  1.7 

EXPANDED  INTEGRATOR.  DPT  ERMINE.  POSH  ION  Of  FOLDING  OFFS! 
FI  IMF NAIF  GATES  IMMEDIATELY  AROUND  FOLDS  FROM  PROCESSING 

NTRIP-O 
TNO  I  -MM  I  N  K? 

NRGp  : FLDR < IPRT I  * DR IK ML  .  5 
HO  1.5  N  -  1  *  IE  OLD 
ir  nroh*n  -:i 
DO  14  Ilkl  .  [NOT 
NOCTR  NOTTRF 1 
I  4  NOTCH ( NOCTR IR4  I 
15  IGFOI  D(M)  =  IR 
GO  TO  17. 


NORMAL  INTEGRA  I  OR.  NO  FOLDING 

1.7  I  01  OL  D  (  1  >  =NRGR 
NOP  T  R=  NOCTRI  1 
NOTCH  (NOCTR  ■> --NRGR 
MRODt-NROF( 

I  A  CONTINUE 

I  F  (  NOTCH  (  NOCTR  )  .  I  F  .  NRGR  >  GO  10  1.5 
NOCTR  -NOCTR-  1. 

GO  TO  I A 

VELOCITY  RESOLUTION  (SO)  UIAUEL/4.  *  FRF  *  L1./31.) 

1  5  OMX  :  UIAUF  I  /4  ,  *  FRF 

OMD  7. *OMX 
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SO  OriX-MI 

BPRI  i',,‘  ;  L  st  i!  ,  i  i  i  i  i>  >  i  t.  On / *OrlX*;.  ( . '  I  *  I  I  > 

■  ■  ■  ’  OMX*  ,'i  :  '  1  ■  i  * 

sum  ■  sup: r  i  so  1  > 

sonx  .  iv 

nil  BE  i  t  I'.  KT.SOI  Hi  I  OH  1:1  I  Ml  NI 

PUI.  St  2.0**  <  N Pill  ■  I  >  I  4 . 1 

KOI  IIP  1  ►/Slip  I  •PUI  Ut  ■, 

I  N  I  I  I  At  I  SI  I  Hi-. I  SHUI  II  t  I  01  I  S 

AO  UP  UR-  I  K  SPUR  <  I  N'T  ) 

OFF -IB.  *  ROC)  TP  t  AO  UP  UK 

OF  FSP  '  GZE  KO  (INI'  t  I  RSI  'UR  (  !  NT  '< 

PUR BAR  - A OOP UR  t OF  P  SP  I 
RTHRS=AOGPWRFS. 

OTHRB=AOGPURF  I  0. 

STFIRS-  AOGPUR  F  IS. 

UNO  I  SE=OTHRS  t  5  . 

B  N  0 1 S  E  - B  I  U  R  S  F  5  . 

RANGE  DELAYi.  F  N  OF  PR  T  AND  INTEGRATOR  TYPE 

70  ntr.i:f'0-:N trip 

R D K M - R [I E  I  .  <  I P RT  » INI  )  IN  T R I P * t  I... D R( IPRT) 

RNGDL.Y  ~EDKM*AMF'K 

COM P U T  E  R  A  N G E  I N I E R 0  A  L 

DO  111.  I=1,NRGR 
IP~ I F 1 

R  A  N  G  (  I P  >  -  R  D  K  M  F  R I K  M  *  (  I  1  ) 

IP  (RANCH  IP'  .LE.DMIN)  GO  TO  1  1  I 
ROAL  <  r  )  =20  .  *  A  1.001  0  (  RANG  (  I P  )  ) 

111  CONTINUE 

RANCH  3 8 2 1 = R A N G( 3 8 1 ) F R I K M 

OUTPUT  HEADER  INFORMATION 

IF  <  ICODE.LT.  IN.ITAI  >  GO  TO  101 
I  Fr  (  .  NO  T  ►  P R FI  E  AD)  G  0  I  0  L  0 2 
UAOECM  UAOEI  *100. 

WRITE  <  6t  1 70)  H INTCH  1  r  INI)  *  II  I  NTG  ( 2  r  IN  T  )  , DAY  *  YEAR » TIME  *  PRF  r  W AOECM , 


i  FRO  v  TRSPUR  ( I  NT  )  r  CZERO  (  I  NT  )  »  BEAU  t  »  SO  »  OMX  *  PULSE.' 

170  FORMAT  ('■,'// /7X  >  '  #  NORMAN  * '  r 

F  5X » 2A4 * '  I NTEGRATOR ' //3X . ' DAY '  » 1 4  >  '  1 9 ' >12? 

F  3 X *  ' ' ,3X»I6.6» '  CST ' //5X » ' PRF  .  ' * F8 . 2 , 

+  '  (  /S )  '  /5X  *  '  UAOE  I..  NOTH  -  '  » F8 . 2 »  '  ( CM  )  '  /5X  » 

»  '  FREQUENCY  .  HF8.2H  (  MHZ  )  '  /5X  >  '  TRANS  PUR  . -  '» 

F  F  8 . 2  r  '  (  DBM  > ' /5X  > '  NCI  ISE  LUl.  .  '  *  FB  .  2  •  '  (  DBM  )  '  /5X  * 

F  'BEAM  WIDTH  •-  UE8.2H  (  DEG  )  '  /5X  »  '  OEL  RESOLN  -  '  r  F8 , 2  t 

F  '  < M/8 ) ' /5X » ' MAX  OEL  ' , FB .  2  >  '  ( M/S ) ' /5X » ' SAMPLES ' 

F  '  - .  ' . F  0 ,2? ’  (/GATE)') 

UR  I TE  ( 6  f  171)  NRG  t  NRGR  , RNGDI...Y » BE  r'  I ,  Ft  DR  ( I  PR  I  )  » I GFOLD  ( 1  )  * 

F  I FOLD 


171  FORMAT <5X» 'GATES  .  '»I5/5X» 
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'  1  I  E  Ml  NI  B  '  .  I  S./5X  »  '  KNG  IJE  I  AY  '  .  FB  .  2  •  '  CM)  '  /  5  X  . 

PNG  I  NCR  .III,.1.'  CM)  '  /5X.  'FOLD  ENG  -  '  ,18.2, 


f  '  i  KM  )  ' /5X  •  '  I  01  ,H  BATE  '.I5/5X.  NIJM  I  01  DB 

IF  >  PDA  i  .1.1  .0)  UIR I  If:  (A-  I  7  ?  )  BPAY  .  BC.GINT  »  EDAY  » I..ND  I 

!  / . 1  I  U R MA  I  c  ’  ■  x  v  H |  0  1  N  II A  Y  .  '  .  I 5 / 5 X  .  '  K I  G  I  N  I  I  Ml  '  ,  l B  .  6  , 

!  5X  .  I  Nil  HAY  '  .  T5/5X  .  'END  I  T  Ml  »  I  B  .  6  » 

UR  I  II  (  6 »  1  /4) 

I  .'A  f  OEM  AT  c  OX  *  'CONTOUR'  > 

DO  l.-:'0  K  l.l  I 
1  '0  UR  l  II  (6.  t  /3>  K  *  I  I I  <  K  ) 

I  71  F 0EMAK6X.  'I  RUE  I  (  '  .It »  '  )  '  .  15 . 4X  > ' ( DBZ  )  '  ) 

UR  I  1 1  (  6  »  1 6V  )  COMRAD  C  I  ">  v  (  OMR  AD  C  2  >  .  COMI  AT  *  COMI  ONG  . 

-I  Rl  A  (  »  RL  ONO  -  HI  A  I  « III  ONO 

1.6V  FORMAT  (,'///.  ’X*  'COMMON  ORIGIN  .2A4.'  RADAR  SI  II  '  / 

+  I  BX  » f  ,0  4.  '  N.LAI  '  .F  V.  4.  '  W.l  ONO'/. 

}  :>  Xv  '  ME.  A  0  U R  I:.  Mf  NI  B  N  ORMAN  R  A  D  A  R  BIT  L  '  / 

4  l  B  X  .  F  7  N  .  I  A  T  y  F  V  .4.'  W.  L  ONO  '  / 

I  VX  y  OF FBI  I  '.FI  0 . 4. '  KM  N '  » I  10.4.  '  KM  F '  ) 


CCS  I  )  '  / 

c C 01)  ) 


I  FI  AG  I 

1 02  [CODE “NORMAL 
10  1  CONTI  Ml  If 

CAL  I  DRAT F 

A  0  f  ■  R  A I  ■  F  H  Y  f  AO  OR  .  R  F  F  l  E  C  T  I  V  I  I  Y  D  AT  A  (  M  ”•  1.  > 


EE  f  I  <  DBZ  )  •••• 

1 20  M  l 
N  ~  I 

NO  I  NO  I CU ( M ) 


ROOD  RUE  <  DBM  )  f  1  OF.  OG  <  R**2  ) 


TENS  PUR ( DBM )  I  NO p 


NOTCH  OATES  IMMEDIATELY  AROUND  FOLD  RING 

DO  1 .50  I  “Cl  .NR  OR 
PURL  (  I  )  999, 

OICI  )  9  . 

ZI  (  I  )~:-999. 

SI < I ) “0 . 

it  <  i:  ,r  o .  no  n  oo  to  12? 

IR  K  I!  I  )  *  1  AOOR 
PUR  0 . 

DO  135  .1=1  .  I  AOOR 
Kell  IE 

135  P  U  R  “  F:’  U  R  1  C  A I  (  N  D  A  T  (  K  .  M  )  .  I N I  ) 

P UR “PUR *D AOOR 

IF  (  E’UR  .  OT  .  ETHRS  )  ZI  <  1 )  “  PUEfEUAI  <  I  > 

PURK  I. )-  PUR 
00  TO  130 

12V  N  -N  E 1 

TECN.GT . NOCTR )  N  NOCTR 
NO  I  '  NO  TCH  (  N  ) 

130  CONTINUE 

(INF  01  D  POSITION  Of  VELOCITY  DATA  OVER  I  FOLD  RANGE  BLOCKS 

131  M2 


V 


M  .5 

DO  140  I  :  NH  IN  » NRGD 
IP=1  PI 

PWRMX^PWRI  <  T.  ) 

I MAX “I 

IKIFOIJI.I  I  GO  TO  14 A 
DO  145  I  I  » 1 1  01  D 
K  1  f  IGF  01  IK  .  )> 

IP  (K.G1  .NRGR)  GO  10  14  A 
F'WR-  PURI  (K  ) 

IF  (PWR.Lfc  .PWRMX)  GO  TO  145 
PUP MX "PUP 
I  MAX  I. 

145  CONTINUE 


C 

C  SUBJECT  DPI.  OC I  TV  DATA  TO  PAW  POWER  THRESHOLDING 

c: 

1.46  CONTINUE 

IF (PWRMX. LE.VT HRS)  GO  TO  140 

C 

C  CALIBRATE  %  AVERAGE  VELOCITY  <N=2)  AND  SPREAD  <M*3)  DATA 


C 

(.'  RAD  VEL(MZS)  ==  (I  NT,  VALUE  -  RANGE/ 2  +  .5)  *  VEL  RE  SOL  N 

C  DOP  SPIKM/S)  »  SPD  PESO!  N**2  ( 1- •  ( 1  ~VAL#*2  )  #  PREC/ ( PREC- NOISE  )) 

c; 

IR=(I--l>HtIAVGD 


C 

C  RAD  VEL  IS  OFFSET  FROM  INTEGRATOR  IN  RANGE  BY  IVOFF 
C  DOP  SF’RD  IS  OFFSET  FROM  INTEGRATOR  IN  RANGE  BY  I  SOFT 


IV-  I RE IVOFF 
IS-IR+ISOFF 

I F  <  I V  P  I  AVGD .  GT  .  NRG .  OR  .  I S+  I.AVGD .  GT  .  NRG )  GO  TO  140 

V- 0 . 

S-0 . 

DO  150  J-l r I AVGD 
KV~:  JFI V 
KS=J+IS 

V=V  P ( NBA  I <  KV  *  N ) -31 , 5 ) *SV 
SF'D-NDAT  <  KS  .*  M ) 

150  S=S+SPD*SPD 


SI2-S*DIVS 

ANOISE-l 0 ,  **  <  ( AVGF’WR  FOF  FSET )  / 10  .  ) 
RECPUR~10.**< (PWRMX +0FFSET>/10.  ) 
PWRCOEF "RECPWR/ ( RECPWR  ANO I SE ) 

C 

C  SUBJECT  1ST  3  GATES  IN  EACH  BLOCK 
C  TO  NOISE  THRESHOLDING 

C 

SI MAX-0 . 

IF < I » GT . 3 )  GO  TO  160 

IF < PWRMX. GT.SNOISE)  GO  TO  161 

IF < PWRMX. GT.VNOISE)  GO  TO  162 


GO  TO  140 
C 

C  COMPUTE  DOPPLER  SPREAD  AND  NORMALISE  BY  1/2  BEAU I #RANG ( KM ) 


C, 

160  CONTINUE 

IF (PWRMX. LE. ST HRS)  GO  TO  162 


1 6 1  S I MAX-  S V2  *  ( 1 . - ( 1 . ~S I 2 ) *PWRCOEF )  *  BEAU I 2/ ( RANG ( I P ) *RANG (IP)) 
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IF  <  S I  MAX  .  GT  •  0  .  )  SI  <  l'MAX  )  "SIMAX 

16?  uj:  (  imax>  v*d:i:o 

140  CONTINUE 

r 

i  OUTPUT  F’R  FEARED  DATA  TO  DISK 

(I  <  (-At.  IDII)  WRITE*?)  TIME  •  DAY  y  YEAR  *  IAZ I y  I  TILT  y  RE  AT  *  El  ONG  » 
i  H  E 1 0  H  T  *  Dl.  A  T  »  D  L  0  N  G  y I R  A  D  A  R  *  BE  AW  I ,  I P  RT  y  I  N  T  *  E  R  0 »  WAUI  I  * 

-t  P R F  y  P WRDAR  •>  RAW B A R  y P U L S E  y  AV G P W R  y  WAVE G M»TR S P W R  (  I  N T  )  « 

+  CZERO  ( I  NT  )  y  NRG  >  NCL  >  I  MX  y  NRGR  y  NOCTR  *  FT... DR  ( I  PR  T  )  y  NU  T  C  I U 

*  IGF  OLD  ( 1.  )  y  I  FOLD  y  RDKM  y  R IKM  y  SETR I  y  RNGDL  Y  y 

1  UMX  .  UMD  ,  SO ,  S'JMX  y  SUMN  y  NUM  y  NREC  y  [CODE  « 

+  2. 1  y  0 1  y  S I 

RETURN 

END 
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SUBROUT  I  N[  DHZCV  I 


*:*t*)K^**********)>:K:)()|'.*****-)(oX*)K)(<)«**>)ot!^*)«*)t!****!)(*)|o|«^ot:**)|'.!)nt;*:)K***)i<*:**^ 

name:  dbzcvt 

project:  let  bojs-zzo  (faa> 

purpose:  to  calibrate  averaged  output  from  expand, 

ONE  OLD  RADIAL  VELOCITY  I  N  RANGE  AND  SET 
UP  RE  FI  .  SHEAR,  RAD  VET...  X  DOP  SPREAD 
ARRAYS  FOR  PROCESSING 

interfaces: 

CALLING  MOD.  D0PLR80 
CALLED  MODS.  NONE 
INPUT  PARM.  NONE 
OUTPUT  PARM.  NONE 
COMMON  BLOCKS 

AZM , DOPE R , F IE TER » F IXED , INSUB , NEWCO , OFFS , OUTRAN , 

PWORK  « R  A  DCOM ,  RE  FI... ,  ICON  ,  VEL 

COMMENTS*.  ARRAYS  THAT  PASS  DATA  TO  THE  PROCESSING  ROUTINES, 
COMMON  VEL  &  REEL,  HAVE  NO  DATA  IN  THE  FIRST  AND 
EAST  STORAGE  LOCATIONS  TO  INDICATE  BEGINNING  AND 
END  OF  RADIAL 

VERSION*.  1.0  DEC/ VAX  1.1-700 
DATE:  5/6/81 

design:  rkcrane*  jho  x  gbgust afson 

progmr:  gbgustaeson 

INTEGER  YEAR, DAY , TIME , I  TILT , IAZI 
INTEGER  D , C , OLD 
INTEGER  W , WI , HR , TS , TI , HV , WOLD 
INTEGER  TL , BEGIN! , END T , BDAY , EDAY 

D I MENS I ON  VEL (500,2), WOLD ( 500 ) , SHE ( 5 ) 

COMMON  /DOF'L.R/  A  (  5 )  ,  D  ( 5  )  ,  NSM  ,  TSO  (  20  )  ,  I  STIR 
COMMON  /RADCOM/  YEAR , DAY , T I ME , I T ILT , I AZ I , RDKM , R I KM , 

*  BP  AW I , PWRBAR , RAWBAR 

COMMON  /INSUB/  BEGINT , E  ND  ! *  DEER , SCON , ICOMP , 

+  DAZM, BDAY, EDAY 

COMMON  /FIXED/  NFC, TL (2) , 10(256) , IB (256) , NPA , IEMAX » ICVNT ( 2 ) , 

+  IBVNT  ( 2 )  ,  ATR  (  2560 )  ,  I.  AT « NTDF ,  KDD  ( 2 ) » IDSLOT  ( 512 ) 

COMMON  /FILTER/  TATRMN , AREAMN , CELMN ( 2 ) ,SVMX 
COMMON  /OFFS/  IZOFF,FZOFF 

COMMON  /I  CON./  SETR I ,  RNGDL  Y  ,  SETEl  ,  RANG  (  582  )  ,  I  HOT  (  582 ) 

COMMON  /VEL./  TS  <  582 ) ,  T  I  <  582  )  ,  HV  ( 582  )  , RV  (  582  )  ,  RS  (  582  ) 

COMMON  /REEL/  W <  582 ) , U I ( 582 ) , HR ( 582 ) 

COMMON  /PWORK/  KMAX»TC100) , JMXDB , UMAX , I AMAX , IE , JR , 

+  IMXJMX,NCL,NID,NIDP, I MX, IMN 

COMMON  /AZM/  AZMUTH , DAZES , AZLAST , NA , ELEVAT , B , C 

COMMON  /NEWCO/  ZI ( 580 ) , VI ( 580 ) , SI ( 580 ) , 

+  VMX , VMD , NRG , NR EC , NRGR 

COMMON  /OUT PAR/  MOOT  ,  NOI.IT  ,  NOCTR  ,  NOTCH  (  50  > 
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P  A  R  A  ME  T I  R  <  R  p  I )  .  0 1  /  4 5  3.RP10  D ~  t.74  5  3  E  3  »  A  K  P  M  -  „  0  0 1 1 AKPK  K  =  1000.) 
1 1 A  1  A  I  A/  I  0/0  /  » NEW /I  /  *  WOLD  7  380*0/ 

01  M  Nl  U 
Ml  LI  Nl  Ul  I 

I  I  (  Ml  14.0  I  .?)  Nl  W  I 

SI  I  HIM  ARI  A  IN  Ml  (I  KM 

I ATRMN  »AREAMN*AKPKK/RIKM 
OH  ~BEAUl*RPIi*R IKH 
(".EL  M N  <  I  >  I  .  5* Cl:  l 
CE.LMN<  2>~3.5#CEL 
SETEl  “ELI  OAT 
UH  1  ) -0 
Ul  (  NCI  >  -  0 
rBU)  999 
IS (NCI  ) -  999 
RV  (  1  'i  0  . 

R'vHNCI.  >  0  . 

RB  <  1  .)  =0 . 

RS  <  NCI  >~0. 

UN FOLD  y EL. OCT T Y  VALUES  TO  SAME  UNAMBIGUOUS  INTERVAL 
I  =  I 

5  1 1  <  V I  ( I  >  .  GT  .  -999  .  )  GO  TO  1 0 

i  :r  1 1 

IF ( J .GT.NRGR)  GO  TO  25 
GO  TO  5 

10  VL=VKI  > 

8  :i>t  h 

IF (I. GT.NRGR)  GO  TO  25 
IF (VI < I ) .LT .990. )  GO  TO  8 

TEST  OUT  IN  RANGE 

A  V-VT(I) 

IF  (  V  VI  .  GT  .  VMX  )  V=V-Vhi:i 
IF  (VI.  V.GT.VMX)  V-VTVMIT 

TEST  RELATIVE  TO  PRIOR  RADIAL 

IF ( VEL ( I f OLD ) . LI . -990 . . OR . NA . E  O .  I )  GO  TO  / 

VB-VEL < I t OL D ) 

IF  (  V--VB  .  GT  .  VMX  )  V=V-VMD 
IFHVB  -  V.GT.VMX)  V = V + V M H 

TEST  AGAINST  MEAN 

/  .HI 

9  .h-.ll  l 

IF (J. GT.NRGR)  GO  TO  15 

IF  (VI  (.,)>  .1  T  .  990,  )  GO  TO  9  1 

VMF  AN  -  (  VI.  H)  I  SJ)  )  /  2  . 

TF(V  ~VMEAN.GT.VMX>  V~V  VMIl 
T  F ( VMF AN  V . GT . VMX )  V ^  V  *  VMB 
VI  -  V 


v  i  ( i:  :<--  v 
l  -  j 

on  to  6 

IS  VI<l)~V 

25  coin  tnije 
(if  f  •  ine:  reflect  ivity 

TANGENTIAL  VELOCITY  SHEAR 
RADIAL  VET. 00  I  1  Y 
OVER  NR OR  RANOE  INTERVALS 

DO  21  El  «  NR’ OR 
IP- III 
TS ( IP )  =--999 
VEI  ( I  *  NEW  )  =»■•*•  9  V9  . 

DO  22  N"::l.  y  IS  HR 
22  SHE  (NT-  999, 

0  f  F  S  E  r  R  E  F  L  E  C  T  I.  V  .1.  T  Y  D  A  T  A 

U ( I P  )  ~Z I < I ) +FZOFF 
I F  ( W  ( I P )  ,LE.  1 1...  ( 1  >  )  W  ( IP )  =0 

SMOOTH  VELOCITY  DATA  OVER  NSM  VALUES 

I.  NM-=I  -MEOW 
VINEW-0.0 
VOL 0=0 . 0 
..NO 
SUM-0 

DO  TO  IN'- 1  r  NSM 
N-INM+IN 

I F  (  N  .  L.T  .  1  .  OR ,  N  .  OT  .  NEGE  )  GO  TO  TO 
IF  <  VI  <  N )  . I  T  .  -990 .  )  GO  TO  TO 
J=J+1 

VINEU~VINEWfA<IN)*VI (N) 

SUM-SUM! A (IN) 

I F  ( V  E  L  ( N  •.  0  L  ID,  L.  T  .  - 9 90.)  G  0  TO  T  0 
V OLD  -VOl  If  ID  (IN)  *VEL  <  N ,  OLD ) 

SUM-SUM+D ( IN) 

TO  CONTINUE 

IF  (  J  .Or.  2 )  VEL  ( I » NEW )  ==  <  VI NEU+VIOL  D )  /SUM 
TEST  FOR  BAD  DOPPLER  VALUES 
VNEW-VEL ( I t NEW ) 

IF  <  W  ( I P )  ,  I...E  .  TL  <  1  )  .  OR  .  VNEW.LT.  990  .  )  GO  TO  60 

DEFINE  TANGENTIAL.  SHEAR  (M/S/KM) 

IF < I SHE. LG. 2)  GO  TO  TS 

IF  ( NA . EG  .  :l  .OR.  IAZI  .EG.  IA7.I0  .OR. 

I  WOLD ( I ) .  I  F  ,  TL  <  1 )  .  OR .  VEI  ( I .  OLD  )  .  I  T  .  -  990  .  ) 

T  GO  TO  TT 

VSCAL E-RANG ( I ) * ( I A/ I  I A/ I 0 ) *Rp 1 OD 
SHE  ( 1 )  -  ADS  <  (  VNEW-VEL.  ( I » OLD )  )  / VSCAL  E  ) 

TT  CONTINUE 

IF ( IS HR . G I . 3 )  GO  TO  SO 
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IF(ISHR.EQ.l)  GO  TO  AO 
DEFINE  RADIAL  SHEAR  (M/S/KM) 

45  CONTINUE 

I  F  <  I  . G T . 1 >  S H R ( 2 ) ~ A  B  S <  0 NEW  V E L ( I  -  l,NEW))/RIKh 

IF < ISHR.NE.3)  GO  TO  AO 

HE.  FINE  TOTAL  (VECTOR)  SHEAR  (M/S/KM) 

I F  <  SHR  (  I  )  .  G  T . -990 . . AND . SHR ( 2 ) . G T . -  990 , ) 
f  SHR  <  3 )  -SORT ( SHR ( 1 >  *SHR ( 1 ) *  SHR ( 2 ) *SHR ( 2 ) ) 

GO  TO  AO 


DEFINE  RADIAL  VELOCITY  AS  SHEAR  VECTOR 


50  CONTINUE 

IF"  (I  SHE.  NE.  4)  GO  TO  5  5 
SHR<4)=ABS(VNEU) 

GO  TO  AO 

DEFINE  DOPPLER  SPREAD  AS  SHEAR  VECOTE  (M/S/KM)  -  NORMALISED 
55  CONTINUE 

IF( ISHR.NE.5)  GO  TO  59 

sii=sici:> 

IF (SII.GT.O. )  SHR ( 5  )  ~S 1 1 
811=0. 

IF(SHRd)  .GT.  -990.  )  SII=SHR(i.) 

SI ( I)=SII 
GO  TO  AO 

BAD  I SHR  CODE.  DEFAULT  TO  TANG  SHEAR  (I) 

59  [SHE  :  1 


OUANT I  ;’F  DOPPLER  VALUE  TO  BE  PROCESSED  INTO  (1/VOUANT)  DB  SIT 
IF  DOPPLER  SPREAD f  QUANTISE  SQUARE  ROOT 

AO  S::SHE<  I  SHR) 

I F  < S . LT .  -990 . )  GO  TO  20 
DO  30  N~ 1  *  20 

IF  <  S . LE . TSQ ( N ) )  GO  TO  35 
30  CONTINUE 

PREPARE  ALL  PROCESSING  ARRAYS 

35  TS( IP )-N"  1 

20  WOLD ( I )  -W< IP) 

RS< IP  )=S1 < I ) 

21  RV( IP) =VNEW 

FILL  IN  NOTCHED  GATES  TOR  CONTOUR  DETECTION 

DO  2 A  N=  1 1  NOf:  T R 
I =NOTCH( N ) 

T  T  *  —  T  T 1 

26  U( IP)  W( I ) 

IA/IO  I  A/ 1 


81 


SUBROUTINE  CONI  Ok 


^  X  ^  ^  ^  ^  ^  ^  *1/  X  ^  ^  <Jy  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  s^  ^  tL  ^  X  ^  'X'  X  X  X  X  X  X  X  X  X  X  X  X  X 

TTT^^"'PT,r'f^r‘Tl'“T^T'^TT'l'TT'TT**^*****,*****^**T^*T^'r"  *  “  T  *  T  T  '*•  *  *  T  T  “ 

NAME  I  CON  I  OR 
i  •  r«: n . 1 1  cr:  t  in  boss- zoo  o-aa  « 

CURPO.se:  10  IIP  EEC)  REGIONS  Of  THE.  REFLECT  I VI  TV  AND  SHEAR 

FIELDS!  THAI  ARE  ABOVE  PRESET  FIXED  THRESHOLD 
LEVELS .  TO  ASSOCIATE  THESE  REGIONS  FROM  RADIAL  TO 
RADIAL  AND  TO  ACCUMULATE  ATTRIBUTES  OVER  EACH 
CONTOUR  REGION .  CONTOUR  BOUND ARYS  ARE  OUTPUT  TO  AN 
INTERNAL  PLOT  FILE  THROUGH  SUBR  PLOT.  EACH 
SUPER  THRESHOLD  EVENT  IS  FURTHER  PROCESSED  BY 
SUBR.  PEAKD  TO  DETECT  PEAK  VALUES.  CONTOUR  SEGMENTS 
AND  THEIR  ATTRIBUTES  ARE  JOINED  TO  FORM  COMPLETE 
CONTOURS  IN  C0NTR2 .  A  DIRECTORY  OF  THE  CONTOUR 
SEGMENT  ID'S  AND  THEIR  BASE  CONTOUR  IB  IS  MAINTAIN! B 
AS  THE  JN I  DA (ARRAY ) . 


interlaces: 

CALLING  MOD.  DOPERS!  1 
CALLED  MODS.  PLOT .PEAKD 


INPUT  PARM.  NONE 


OUTPUT  PARM.  NONE 
COMMON  BLOCKS 

ARY MX i A/M. A/2 . CN I » COUNT . DAT AS . DATA1 . DATA4 . DECODE . 

E  I L  T  E  R  .  F I X  E  D » F  L.  G  S 1 1 N  S  U  B  .  K  N  C  T  R  r  K  N I  B  L.  .  M  0  R  E  D.NV  L  I S  . 

NVL I T . OFFS t OUT  CAR . PARM »  PNTRS  » PROTORE  » PVS  TORE • PUORK . 
RADCOM •  REEL. .  SECOND .  T  ANGENT  .  I  CON »  TL  IS  .  TMAX  .  VEL  . 


VPARM./LOOK 


COMMENTS!  PEAKD  IS  CALLED  TWICE.  FIRST  FOR  REFLECTIVITY 
EVENTS  AND  SECOND  FOR  SHEAR  EVENTS. 

VERSION:  1.0  DEC/ VAX  11-780 

date:  5/ a/81 

design:  rkcrane  %  gbgustafbon 

PROG  MR  :  G  BGIJS  T  ARSON 

***********  :|(  **  *  **  ***  ****  **  *  *  *****************  ******5|<****  *  ******  * 

L  0  G I C  A  I.  P  R I  NTT.  C  0  P  L  0  T  .  C  0  N  I  R 7. .  C  E  P I.  0  T  .  C  P  L  0  T  .  C  0  N  T  R  V  .  C  A  L 1 B  0  .  P  R  0  V  f  R 


INTEGER  YEAR. BAY. TIME 

INI  E  G  E  R  S  E  C  .  S  T  A  R  T  I  ,  BE  G I  NT.  E  N  D  T  .  BDAY.  E  I!  A  Y 
I N T E GER  H V  .  B  .  C  .  H R  .  T I  .  T S E C  •  I  M .  T Ml  » T  MX 
INTEGER  W . W I . UC . UB . HI  I  TU.TS. T I . DEL  TV 

REAL  IH  ( 64) » C 1 R ( 6 4 ) . C I  I ( A 4 ) «  C 1 2(64) »  C 13(64) »DSI (51 2) 


DIMENSION  IF  Cl  (  9.256)  .  IF  CL  ( 10.128)  .  IESCL.  ( 10.128)  » 
+  I A ( 256 ) . I AUNT ( 2 ) 


COMMON  /KNTBI  / 
COMMON  /KNCTR/ 

•f 

COMMON  /OFF  S/ 
COMMON  /RADCOM/ 
I 


K N I D ( 2  >  » KN I  DA ( 2 . I  024) 

IT.  I  IT  (2)  .  KI...VI  .  JNID.  JNIDA(2. 1024)  . 
KN I  DM ( 2 ) » KN I DL. ( l . I  024 ) 

I /OFF  .F  /Of  F 

YEAR. DAY. LIME. I  T  il  I* I A/ 1 .RDKM.R1 KM» 
DEAW I . PURBAR , RAWBAR 


CP  1M0N 

■  1  c  i  cc 

Ci  ijlriOf-' 

'  I  ns;,! 

COMMON 

/  A  /  h 

COMMON 

/FARM 

COMMON 

/I  I  OS. 

COMMON 

/MORI  B/ 

COMMON 

/AZ2/ 

COMMON 

//LOOK/ 

COMMON 

/l  it  TER/ 

COMMON 

/F  1  XI  B/ 

COMMON 

/PR ST ORE/ 

COMMON 

/post  ore:/ 

common 

/OEl  / 

COMMON 

/REEL/ 

COMMON 

/PWOIVK/ 

COMMON 

/SECOND/ 

COMMON 

/OUT PAR/ 

COMMON 

/ARY MX/ 

COMMON 

/DECODE/ 

COMMON 

/NODS/ 

COMMON 

/NOLI  1/ 

COMMON 

/PNTRS/ 

COMMON 

/It.  1  S/ 

COMMON 

/I  MAX/ 

COMMON 

/CNT/ 

COMMON 

/OP ARM/ 

COMMON 

/DATA1 / 

COMMON 

/DAT AS/ 

COMMON 

/DATA4/ 

COMMON 

/COUNT/ 

COMMON 

/TANGENT/ 

St  JR  I  y  ENG  HI  V  »:.l  111  iv  an  (it  si.  )  ?  JUS!  (//.S' 

Mi  1  Nl  ,  t  MSI  -  til  1  1 1 : » '  •(  SN  ICGMi 
BA/MvBDAY  .EBAY 

A/MU  I  H  *  BA/t  .  A  / 1  AS  I  -  HA  - 1  I  I  OA  I  -H.i' 

Riv  i  n n  yi  on  o i  - c  mm  in  > ,  an 1 1  .  . con i ivo  ■  i  ai  1  no  . 

NOME  V  NO  HR 

PKCEl  I  .PEG  I  0  y  RRI  IXC-IRCI  US .  RR:‘.  t  A,!.  I  1:1  II  ARy 
PE NO IS .PROVE  R 
INPRF  .SCALE 

S  I.  NA  y  COS  A  y  HI  I  T  A  /  -  I  SCANT  y  III  I 
J.’OI  I  y/  A  tv  Y  (  9  I  )  y  IV  R  Alt  <  9  I  • 

I ATIVMN y ART  AMN  y  CP  I  MN ( 9 i y  SO MX 

NFC  *  I  t.  <  2  )  «  I  C  <  256  )  •  I  B  (  256  )  .  NPA  y  1 1  MAX  y  I  i  ON  I  ■'  >  , 

t  B  0  N  I  C  2  >  y  A  I'  R  (  2  5  6  0  I  y  I A  T  y  N  t  I  I  t  .  K  B II  (  2  <  » 
t  MSt  0  I  <  5  I  2  > 

NOP  »  TATR  (  I  056  i  •  NOMAX  y  I  ACM  64  )  .  I  HP  (  .52  >  .  II ’I  :N(.(  6  1  )  * 

I  P  TAR  (.52. 2  )  y  H  AR  (  30  y  .52  •  2  )  »  TPNTR  <  30. .52  «  2  )  ► 

1 P  I  f  V  (  1 V  2  0  y  2  >  y  I P  2  R  (  !  9  2  0  y  2  >  y  T  P  .5  R  (19  2  0.91 

NIJO  y  OAIR  (  I  056)  y  NOMAX  y  I  ACM  (  64 )  .  1110(321  -  .IPORNCA  .Ml  . 

IP  I  AO ( 32  y  2 ) y IT AO <30 y32y21 . TJ  'NTO  <  30 . 32  .  ' )  . 

I  PI U< 1920.2) • IP20( 1920.2) . IP30 < 1920 r 2 ) 

TS ( 302 ) y  T I ( 382 ) . HO ( 382 ) . RO <  382 1 y  RS ( 382 ) 

Ul  (  382  )  y  U  I  (  382  )  .  HR  (  382  ) 

KM  AX  ,  T  ( 100)  y.JMXPBr  JMAX.  IAMAXv  iRv  JR. 

I M  X  J  M  X  .  N  C  I.,  y  N  I  H  y  N  I.  U  P  y  I  MX.  I  M  N 
SRC 

MOOT . NO 01 . NOCTR . NOTCH ( 30 1 
N I D  F  2  y  M  t  F  M  X  .  N I  II  AT  y  N I II A  T  2 
UP  <  9  >  .  HE  I  Gi  l  I  y  III.  ONG  .  Ill  AT 

NOARM  y  NCARM ..  NOG  .  NFO  « I  CO  y  .10  .  JO  y  ,JYR  y  I.  Ed.  y  Kit 
K  I L I ...  y  N K N  IB.NK I) E) .  I.  Z T H »  N K  D h X  .  T  I H R  .  I  F  X C  ( 1. 024),  H  IS! 

N  OM I N  y  NOMX  ,  I  FI.  SN  .  N  S  C  AN.  IE  S  Nl  .NO  S  CM.  N  1 
I  S  T  C  y  J  ri  A  Y  .  J  H  R  .  J  M  I.  N  .  J  S  E  C  .  I  B  A  Y  »  I H IV  .  IMIN.  I H  f  C 
TM  y  TMl.  y  TMX 

C  0  S  P  H I  y  S I  Ni:  I . .  C  0  S  P  H 1 2  y  Z  M I N  ,  E  L  A  S  T  y  S  P  RM  .  1 1  X  M  X 
0 X  y  0 Y  y  0 X I  .  0 Y I  y  T M K  I L. .  TM K T I... I... 

EC  I..  (  .1. 0  .  .1 28  )  .  NCO  .  NCMX  .  HR  JC 
ESC  l  (  I  0 .128).  NS  CO  .  NSC  MX  .  NS  IV  JC 

F  Cl.  (  9 . 256 )  .  AFCS  ,  MFCS  y  NF  MX  •  NF  ARM  .  KN  I  BC  (  1  024  1  .Nl  I  A 
IXR.IXS 

SJNAZ  <  2  )  .  C0SA7  (  2  1 


EQUIVALENCE  ( PCI.  (  I.  .  .1  )  .  IF  CL  (  I  .  I  >  ) 
EQUIOALENCE ( ECl  <  I  .  1  1  .  T  E  Cl  (1.1  >  ) 
EQUIVALENCE  ( E  SCI..  (  I  .  I  )  .  I  T  SCI  <  I  «  l  )  ' 


I  RMX  -  I  t  MAX*NI  C 

P  AR  A  M  E  T  E  R  (  I  R  MX--64  » I  Ul  MX  ~  9  .  A  M  P  K  - 1000.) 
PARAMETER  ( RPB== .  0  I  7453  »  BPR  5/  .  29578  .  M  A  IP"  2  ) 
PARAMETER  (  I  PUP-3000  y  IP  BN  2000 
BA  I  A  I.  BO/  3/  y  I  10/3/ 


NORMALISE  AZMI)  TM  OF  EACH  RAH  I  AT  BY  1/2  BEAM  WIDTHS 

AZRAD  AZMUTEWVPD 

A/NORM  A/MIUH  BAZ f  * H E A W I / 2  . 

If  ( A Z NORM .11. 0 .  )  A/NORM  AZNORM I  360 . 

8  4 


/ 


I  F'  «  AZNORM  .  G  1  .  360  -  )  A 2 N 0 R M A 7 N 0 R M -  360  , 

A/NORM  A/NORM*RPIi 

A/NilUR  A -'NORM 

II  tNA.GT.J)  GO  10  61 

IMITTAI  r/F  ONCE  !  AGO  SCAN  <  NA  I  > 

I F MR  A , n 
A/S  > AR  A/NMRM 

STAR'  I  'll  <  I  )  I  ZO  F  F  )  *  1  0  0  »  (  II.  (  2  )  I Z  0 1  I  ) 

1  F  (I  I  .EO  1  >0  1  A  R  I  I  =  S 1  A  R  TT  (  1 1. (.  2  >  I  /  0  F  I  > 

1.11  01  1  Icl IF  •  H  OT  OUTPUT  ON  AI  L  SCANS 

CE'IT  OT  1RIJL.  F  L  OT  OUTPUT  ON  LOU  SCAN  ONLY 
CUI'I  1)1  IS  I  NT  ERNAI  PLOT  TAPE  SUIT  ('FT 

(  OFT  01  CPI  0  1 

IF  <  CF.  IT.  OT  .  A  Nil ,  Nil.  .  EO  .  I.  ICOPLGT-CE'PLOT 

F  !  RAO -  El.  F  UAT'KRPD 
COS  E‘  FT  I.  =  C  0  S  (  E:  I. .  R  A  D  ) 

S I N  E  L.  S  I  N  (  E I...  RATO 
C  0  S  P  FI  I  2  -  COS  P  H  I  *  C  0  S  F  •  H  I 
F  Z  T  H  •"STAR  1  TV  100. 

SET  TRACK  REFERENCE  TIME  FOR  THIS  SCAN 

I  I.IAY":;  DAY 
I  MIN”  TIME /1. 00 
1  SEC  =: TIME  •  I  MIN*  100 
SEC""  I  SEC 
I  HR  I.M IN/ 100 
.TMIN-IM  I  N  THK’*.1  00 

CONVERT  THIS  TIME  TO  SECONDS  FROM  START  OF  YEAR 

T  S £. C  -  (  (  I  M A  T  *24  F  I  H R  )  * 6 0  f  I  M I N  )  * 6 0  F I SE 0 

SE  T  K 1 1.  A  T  RFC) INNING  OF-  VOI  TIME  SCAN 

I  FINE  I.  .OT.  I  >  no  TO  30 
KTL=T SEC 

50  TMKTL  H  SET  KTF. 

TMKTLL-TSEC-KTl.  I 

I  El  SN  --MEI... 

MOOT "0 
NMR  - 1 
NMV"  1 
NO  CEl.  =  I 
NCI:  I  ”1. 

DO  3  1  K~  I.  *  I  UP  MX 
31  IJP  (  K  )  ~0 . 0 

DO  3111  .I  "  I  .MCI 

it. «  n  rs(.i) 

5111  UI(J)=U(.I) 

DO  51  I  I. NT  HAT  2 
5  1  ATR'I  >  0.0 

no  53  I  1  vNIDF  2 
MSI  (I  >  0,0 


i nsi  mu  o 
no  n  i.  i . n. i  in¬ 
i' BU  >  o 
5  4  k  on  o 

i.i o  i  i»  1 1 -mx 

s',  rue u  i  o.o 
no  j  i » mi  r 

i  nvm  •,  n  o 

KtHi(.l)  o 
I  IMI  'I  "KNI.IK  J) 

.1  r  •:  I.  I  n  I  I  .  I  I.. .  0  .'  GO  TO  56 
no  0  7  i-.  i  -  l  i:m  i  r 
07  KNI DiV  ..UK  )“0 
'.To  KNIDU)-0 

INITIAL  ZE  CONTOUR  ARRAYS  FOR  TACIT  RADIAL 

6 1  I  E  M  f = A  7 1.  AST  DA  1.  F  *  B  T  A  U I  /  2  . 

I F  (  TEMP  . I  T  ,  0  .  )  TEHP- -TEMP +  3 60  . 

I F  (TEMP.  0 T  .5 60.)  TEMP = T E M P -  3 & 0  . 

TEMP=T  EM  P*RPD 

KID  OO 
KATR  ;;0 
KCTR  =0 
KSL.0r-0 

DO  91  I  1*1 KMX 

c  :i:  i  (K  >  •-:(). 

C 1 2  ( K  >  ~  0  . 

Cl 3 ( K ) =0 ♦ 

91  DI(K)=0. 

DO  101  i'Ol. »  IT  MAX 

inc(K>=o 

I D  V  ( K  >  ~  0 

101  CONTINUE 

DO  102  J::  1  r UMAX 

IT'RNG ( ,) )  -0 
I  PORNO  ( ,l)  ~-0 

102  CONTINUE 

DO  111  K=1 t NFC 
ICON! <  K ) =0 
111  CONTINUE 
IP=0 
IPV-O 
IPOD  :0 
I  PB«  0 

FIND  REFLECT  IOIT  Y  EVENTS  ABOVE  FIXED  THRESHOLD  LEVEL  <  Tl.  ) 

DO  281  I~2  *  NCI.. 

DO  231  K-l >  NFC 
JK-K-1 

KIDC  ~NIEMX*.JK 
KIC-IEMAX*JK 
UC  WCf > 

UB~U( I- 1 ) 

I F  ( IJC  .IF.  II  (  F  )  .  OR  .  I  .  E U  .NCI)  G 0  T 0  2 4 1 
IF  (UB.GT.TL <K>  )  GO  TO  151 

COUNT  EOENTS 
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II  I  CVN  I  <  K  >  4  I 

II  ■.  II  .1  I  -  I  I  MAX)  CSC)  III  M  l  I 

III  ‘KOMI  K  >  WR  I  II  )  X  y  I  1  I  2  )  I  CM  AX  y  K 

Mr.'  I  (IRMAT  <  IX.  I  VI  N  I  COIJN  1 1  !•;  I  XITI  I'I  II  MAX  VAL Ill  .  1  MA 
t  '  I.  -'.14) 

III  I  MAX 

1  4  l  l  I  i 'UNI  (I-  '  I  E 

ri  a.  i  uxi  m  )  i.co  it. 

I  L  '  I  I  1 

IK  If  TfcNIAIK  I  HI 
ICO  I  *  I  K  )  “  I  I 
IT  (.if  IK  <  II  0 

c: 

c  i  all  r  even  )  attributes 

n 

roc  k  RANCH  T  -1  >*AMPK 

indx ~wc  n  <klvi.  >  c  c 

U  (  TNDX  .  13 T  .  91.  )  IT  JX=  VI 
I  F  (  INCIX.LE.O)  INDX=T 
WR-  R*ZARY  ( INDX) 

KITE  I  CVN  I  (K)  IK  .'IT 

i:i  mkice  > ••••(:: I  1.  ( MCE  )  ER 
c:  I  2  <  K  ICE  >=C  1 2  (  KITE  )  CUR 
r  i  .hit  r  ce  )  -c  j  i  (  k  i  c:e  )  1  r*wr 
c 

C  COMPUTE  WATER  CONTENT  ON  LOWEST  EL 
L 

it  <  n  c  1  .  E'.o .  :i  >  0  :i:  <  k  i:  c  e:  >  -  hum  c  e:  >  f  r  r  a  t  e:  a  n  1 1  x )  *  k 

i ' 

7X1  CONTINUE 
00  TO  201 

r 

I'  LOCATE  END  OF  EVENT 
l ' 

24  1  MO  27  1.  KL  K « NI  C 
LI  IK  Nit  MX*  (M.  I  ) 

IF  <  WEr  I.  F  .  I  L.  (  KL  )  )  CSC)  TO  281. 

IF  rCVNT (KL  )  1 
IKK  *NPAEK I DC 
2  /  I  I  C  (  2  III-)  I  1. 

28 1  CONTINUE 
C 

i  INI)  I  VENT  Ilf-  I  E  C  l  I  0  N  l  0  0  P  S 
l 

COS  A /Cl  )  •■•COS  (TEMP) 

STNA/(  1  > ;  SIN  (  I  E. MR  ) 

COF.A  -  Ct)S(  AZRAD) 

HfNA~SIN< A7RACD 
COS  A  7  (  2  )  "-COS  (A/NOW  ) 

SINAZ  (  2  >  -T!  IN  (  A7NOW  > 

C* 

I*  f VENT  ASSOC I AT  TON y  RADIAL  TO  RADIAL 

l,# 

DO  All  K  =  .l  r  NEC 
.IK--K-1 

KIC-=IEMAX*JK 
KIBC=NIEMX*JK 
K  ATR“NI  DAT*,IK 
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F/G  1/2 


AO-A109  517 

unclassified 


ENVIRONMENTAL  RESEARCH  AND  TECHNOLOGY  INC  CONCORD  MA 
DETECTION  AND  TRACKING  ALGORITHM  REFINEMENT. (U) 

OCT  01  G  B  GUSTAFSON#  R  K  CRANE  DTFA01-81-Y-10521 


ERT-P-B035 


NL 


FAA/RD-81/80 


I 

l: 

c 


KC  I  U'  I  [MAX*.  II 
KSlht  NIDI 


IBVNT  '  HUNT  ARK  NUMBER  OF  EVENTS  ON  PR  I  OR/GURRE  NT  RAD  I  A I 

.11  h  I!  BVN  I  ■:  1\  ) 

IE  M  ICVNT <K> 

EPU  [PIIPtK 
I  PD~  IP  DM  F  I. 


V  KEVFNT  »  Pl.lRRI  NT  RADIAL 

i:  [EVENT  PRIOR  RADIAL 

i: 

K EVENT- 1 
I  EVENT  ~  1 

3 3  I  K K“<K E VENT  1>*NPAFK I B C 
T  K -  (  I  E  V I  N T  ••  I  >*N P  AIK  I  D C 
IK  I.  - 1 K  I  NT' A 
KK1-KK  F  NPA 

1 3 2  I  E  <  I  B  (  2  f  I  K  )  .  I  0  •  0  .  AN D  .  I C  (  2 •*  K K  )  ,  E  «  . 0  )  G 0  T 0  6 0 1 

<:: 

C  TEST  FOR  OVERLAPPING  (ASSOCIATED)  EVENTS 
G 

I F  (IDCLHK  )  ,  G T  .  I C  <  2 1 K K  )  )  G 0  TO  471 
I  F  < I B ( 2+ 1 K ) ,  I  T  .  I C ( 1 FKK ) )  GO  TO  471 

C 

C  ASSOCIATED  -  UPDATE  CURRENT  EVENT  WITH  ASSOCIATION  ID 
C 

1 1.  D:  ~  I B  <  I K 1  ) 

MI I D~ ( I I D  1 )*TAT+KATR 
MI  I  D.1  .•"•MIID  +  IAT 

I  F:  ( 1 1 D .  If:  .  0  .  OR  .  1 1 D .  GT  .  KDD  <  K  )  )  GO  TO  47 1 
I C ( KK 1 ) ”1  ID 

IF  (  .NOT.  COPLOT)  GO  TO  341. 

c: 

C  GENERATE  FIXED  CONTOUR  PLOT  TAPE  (DEVICE  4) 

L  LEFT  SIDE 

r: 

r.  ♦♦♦»*♦  o  *«»♦(.)♦♦#♦ 

c  / 


I  DSL- 1 ID F  K SLOT 

CALL  PLOT  ( I B  ( 1. 1  IK)  » 1.  t  I C  ( 1  FKK  >  *  2  >  I DSLOT  ( I  DSL  >  *K) 

C 

C  SUM  ASSOCIATED  EVENT  ATTRIBUTES  INTO  CONTOUR 

C 

341.  I F  (  I  SCANT' .  NE  .  0  )  GO  TO  3811 
KICE-KEVENT +KIC 

ATR  <  1 +M 1 1 D )  -ATR  ( 1.  F  MI  I D )  +DELTAZ*C 1 1  ( K I CE  ) 

ATR  (  2+ MI  ID  )  -  ATR  (  2  ♦  MI  I D  )  +DEL.TAZ*CI2  (  KICE  ) 

ATR<  3 F  MI ID ) -ATR ( 3+MI ID ) +SINA*DELTAZ*CI3 (KICE ) 
ATR (  4  F  MI  ID )  -  ATR  ( 4+MI  ID )  +COSA*DEl..TAZ*C 1 3  ( K ICE  ) 
IEi-IC ( 3+KK ) 

IID1  =  IC(  IE1.*NPA) 

C 

C  OUTPUT  ASSOCIATED  EVENTS 

C 

C 

C  UPDATE  EVENT  TO  CONTOUR  POINTER 
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( 


IT  <ATR(Ml  TUI  )  .KI.O.  )  ATR  (  MI  TUI  >  =  I  DSL  .0  T  ( 1 1 01  ) 


I  LAG  EDGES  <  ) 

If  (K'(HKK)  *E0.  t  .OR.  ICC' IKK)  .FT).  I  MX)  ATR  < MI  ID1 )  » 

1  ABS<AIH(MTTDt  )  ) 

CUM  RATN  RATE  OVER  CONTOUR  AREA.  LOWEST  El.  *  Al  l  THRESH 

If  (NEL.OT.l)  00  TO  SOI 

k  rise  r  1 1  it  fk si  m 

dskkdsl  i  >  -  ns  t  i  kdsi.  i  )  ldt  < k  ice > *delt  az 

H  SI  FOR  MERGE  OR  SPLIT  OF  EVENTS r  RADIAL  TO  RADIAL 

SHI  [  F  (  I  EVE  NT  ,  GE  ..JEM)  GO  TO  4 'll 

tf  (  ILK  1  TIK  I  )  ,GT  .  lCCMKK)  )  GO  TO  441. 

DRAW  DOWN  TO  PRESENT  A/MIITH. 


,  0  .  .  ,  0  , 


L  *•*♦0***1  ******  (.)*♦♦♦ 

r 

If  C , NOT. COPLOT)  GO  TO  6003 
IDSL -1 8  <  NR A I  IK  I  ) LKSLOT 

CALL  PL  OT  ( I  f<  <  2+  IK  )  *  1  *  I B  <  2+ 1 K  ) » 2  r  I DSLOT  < I  DSL  )  r  K  ) 

C 

(  DRAW  OVER  TO  I  EVENTS- 1 

i; 

C  * , .0. . . .0. . ,0, . *  0. . 

r  i 

C  ...  0  ...  I . .  0  ...  . 

I  • 

(All  PLOT?  (  I  ft  <  1  +  1 K  1.  )  *2, 1  DSLOT  ( IDSL  )  ) 

C 

C  DRAW  IIP  TO  PREVIOUS  AZIMUTH 
( 

r  ... o .... o ... o .... o . . 

(  :  ! 

i  .  *  .  ♦  0  .  •  •  I .  I  *  .  0  *  *  .  . 

<: 

CAI  I  PL  0  I  2 < I B  < 1  + 1 K I ) *  1  *  I DSLOT ( I DSL ) >  K ) 

C 

C  Mf  RUE  -  SL  IDE  EVENT  COUNTER  TO  GUTTER  EVENT 

C 

600S  tf  VENT -"IE  VENT +  1 
Ih  TKt 
1 K 1  IKENPA 
KID  IDT TKI ) 

THIS  MK  I  D=  (KID  i.  )  *1 ATEKATR 
MKID1 -MKID+IAT 

( ’ 

C  II  MERGED  EVENTS  HAVE  COMMON  ID  (PREVIOUSLY  ASSOCIATED) 
(  GO  ON  TO  NEXT  EVENT 

( 

TMKTD.EO.  I  TIOGO  TO  30  l 


(  TEST  THAT  EVENTS  ARE  REAL 


c 


If  (K  I  ri»UT  0  .  AND  .  Kill .  I  F.KWMKi  >G0  III  101 
GO  1(1  381 

I F  (  A  T  R  <  M  K  IIH).  L  0  .0.0.  UR  .  A  I  R  (Mil  It  1  )  .  E  0 . 0 . 0  )  G  G  I  0  3 8 1 


401 
C 

C  SUM  MERGED  CONTOUR  ATTRIBUTES  AND  ZERO  UNUSED  SLOTS 
G 

l  AT  T  - 1  AT  I 
DO  111  J~1 ,  1AII 
n:  .  i  t  m  i  . i  n 

Jtv  .ITMI'.  ln 

AIR  i  .11  >•  ATR  <  JI  )  f  A  IK  (.IK) 

411  ATR ( JK ) “0 . 0 
C 

IDSLT-T  I IH  KSI  O  f 

K  D  S  L  I  -  K I D + K  S  L.  0  T 

IF ( NEL . GT . 1 )  GO  TO  432 

ns  I  ( I  DSL T  )  ~"DS  I  ( I  DSL.  I  >  T DS I  <  K  DSL  I  ) 

DSI <KDBLT)=0.0 
C 

G  IF  ANY  MERGED  EVENT  IS  EDGE  FLAGGED () ,  FLAG  ALL 
C 

432  IF( ATRIMKIDl ) .1  T.O. . AND . ATR ( MIID1 ) .GT.O. )  ATR < M 1 1 D 1 ) • 
ATR  <  MKT. D1  )=0.0 

c: 

G  RESET  ASSN  ID  OF  ALL  ASSOCIATED  EVENTS  TO  1ST  EVENT 

<:: 

DO  430  J~  1 1  .JEM 
JE=J*NPA+KIBC 

IF ( I B  <  JE ) . EQ  .KID)  ID < JE  )  =  I ID 

430  CONTINUE 
C 

DO  431  J=1 f K EVE NT 
JE= J#NP A+K I DC 

I F  ( I C  <  JE  ) .  E  G  .  K I D )  I C  ( .J  E )  =  I  I D 

431  CONTINUE 
C 

C  RESET  KNID  OF  ALL  ASSOCIATED  EVENTS  TO  1ST  EVENT 
C 

KNIDI  =  IOBL.OT<IDSLT> 

KNIDK~IDSLOT ( KDSLT ) 

I  DSL.OT  ( KDSL..T )  :::0 

IF ( KNI DK . LE . 0 . OR , KNIDK . GT . KNID ( K ) )  GO  TO  381 
KN I D A  ( K  » KN I DK  )  -::KN I D I 
GO  TO  381 
c 

C  CLOSE  END  AROUND  EVENTS 
C 

381 1  ICTR=KEVENT TKCTR 
KNIDU-0 

KNIDT-ABS(CTR( ICTR) ) 

48  IF < KNI DT . I  E . 0 . OR , KNID I . GT . KNID ( K ) )  GO  TO  381 
KNIDU-KNIDA ( K • KNI DT ) 

IF  <  KNI  Dll .  E!Q .  KNTDT  )  GO  TO  4V 
KNIDT=KNIDU 
GO  TO  48 
4V  NIDI K  KDD(K> 

DO  3812  JK  1  *  N  r  DF  K 
JDSl  I  - JK+KSI  OT 

I F  (  I  DSI  0 T  (  JDSl  I  )  .  f  tl .  K  N I  III  I )  GO  TO  3813 


VO 


-ATR  (Mil Dl. ) 


.30  I  7  CON  I  INl.lt 

c 

(30  TO  .30  I 
.301.3  K 1 D~  JN 

00  TO  30  IS 

44  1  II  (  K I  V  INI  I  I  .  0  I  .  I  {':  M)  0  0  I  0  4 5 1 

1 1  <  r !.  <  MKK  I  >  .  0  I  .  I  B  (  2  I  T K  >  )  0 0  1 0  4 5 1 

c: 

C  DRAW  l  INF  CONNECTING  IC(N)  TO  IC<N+1> 

C 

c  . . 

c; 

c  ......  o . o . o. 

(.: 

IF ( .NOT .COPLOT)  GO  TO  6001 
K D b L - I C  ( K  K 1  >  +  K S L  OT 

CALL  PLOT  <  IC  (  2+KK )  .2.  IC<1+KK1 )  . 2  *  IDSLOT  ( KDSI ... )  K> 

K 1 1)-  IC  ( NPA+KK 1 ) 

KDSL=K I D+KSLOT 
C 

C  INCREMENT  EVENT  COUNTER  *  CURRENT  RADIAL 
C 

6001  KL VENT -RE VENT fl 

C  SPLIT  UPDATE  EVENT  WITH  ASSN  ID  OF  1ST  EVENT 
0 

KK--KK1 
KK:I.  ~KK  TNPA 

I F;  <  1 1 D ,  LE  ,  0 .  OR  .  1 1 D .  GT  .  KOD  <  K ) )  GO  TO  471 
IC ( KK1 ) ~I ID  ■ 

GO  TO  .311 

(' 

C  RIGHT  SIDE. 

c: 

C  ...  0  ........  0  ... . .. . 

C  ! 

G  . 0 . 0 . 

0 

43 1  If  < . NOT . COPLOT >  GO  T  0  6002 
t  DSL"  I D  (  IK1)  IK  SI.  OT 

CALL  PI  f)  T  (  ID  (  2+IK  ),1  t  IC  ( 2+KK  >.2.1  DSLOT  ( I  DSL  >  .  K  > 
KDSI. -IC < KK 1  )  +KSL  0 1 
C 

C  INCREMENT  COUNTERS.  BOTH  RADI ALS 

C 

6002  I EVENT = I EVENT + 1 
KEVENT=KEVENT+ 1 

IK ~ ( IEVENT-1 >#NPA+KIBC 
KK  -  ( KEVENT-1 )  *NPA +KI.BC 
IK1-IK+NPA 
KK.1=KK +  NPA 
C 

C  LOOP  BACK  THROUGH  ASSN  PROCESS  AGAIN  FOR  NEW  EVENTS 

c: 

IF ( KEVENT.GT . IEM . AND • IEVENT .GT . JEM) GO  TO  601 
IF ( KE VENT . GT . I EM ) GO  TO  401 
IF  < I EVENT. GT. JEM) GO  TO  571 
GO  TO  332 
C 

C  EVENTS  ARE  NOT  ASSOCIATED 
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A 


4,’t  1 1  ( i IK  i  i  ;  \  • .  tu.o)  i ;n  in  mu 

i. i  t c ( i.+kk > . f  n . o >  no  in  4 n  1 

1 1  <  I C  (  2  I  KK  )  .  I  T  .  IB  ( 1 i  I K  )  »  G 0  1(1  5 1 1 

C 

(  NO  I  VI  N I  ON  CURRENT  RADIAL  *  CLOSE  CONTOUR 

C 

401  LID  l  B ( I K 1  ) 

Ml  ID  K  I  III- 1.  >*IAT+KATR 
Ml  ID  I  Ml  I IH  LAI 
1ITSL--  T  ID+KSLOT 
If (IID.LE.O)  GO  10  802 
IF (ATR(  I.IMIIO)  .GE.TATRMN)  GO  TO  802 
C 

(  El  I M  l  NATE  CONTOUR  REG  ION  IF  TOO  SMAL  L 

C 

IDSL-- 1  IDIKSI  OT 
I DSLOT (IDSL  UK) 

DO  BOOS  1  =  1.!.. I  AT 
BOOS  A  IR  ( I  I Mi  l D )  --0 
802  CONTINUE 
C 

C  CLOSE  OUT  CONTOUR  ON  IB 

C 

IF( .NOT. CO! 'LOT)  GO  TO  6004 
I F  ( I DSLOT ( I DSL ) . EG . 0 )  GO  TO  6004 
C 

C  «  «  .  »  0  *  *  0  ♦  *  * 

c 

I.'  .  ...  I  .....  . 

c 

CALL  PLOT  ( IB ( 1+IK  )  *  I. . IB(1+IK  )  .2.  I  DSLOT  ( IDSL  )  .K) 

c 

I...  .  .  .  »  0  *  .  0  *  «  « 

0 

C.  ....  I  . . . 

c 

CALL  P L 0  1 2  < I B  <  2  + 1 K  ) r  2 . I D S LOT ( IDSL >  .K) 

C 


C 

CALL  PLO T2 ( I B ( 2+ IK ) . 1 » IDSLOTI IDSL ) fK) 

C 

C  INCREMENT  EVENT  COUNTER.  PREVIOUS  RADIAL 
C 

6004  I EVENT- 1 EVENT  1 1 

IK=( IEVENT-1 )*NPA+KIBC 
IKl-IK+NPA 

IF ( KEVENT . OT . I EM . AND . I EVENT . GT . JEM ) GO  TO  601 

IFUEVENT.GT.  JEM) GO  TO  521 

IF (KEVENT. GT. I EM) GO  TO  481 

IF  (IC(1+KK> .LE.IB<2+IK)>  GO  TO  332 

IF  < IC < 2+KK ) » NE . 0 )  GO  TO  501 

GO  TO  332 

501  IF  (IB (1+IK) .EO.O)  GO  TO  521 

511  IF  ( IC( t+KK ) .GT . TB( 2+IK ) )  GO  TO  331 

C 

C  UNASSOICATEB.  START  NEW  CONTOUR 


r 


521  IF  < [C(1+KK) .FO.O)  60  TO  562 

0 

l  I  01. A  T  F  LMFIY  ASSN  ID  SLOT 

0 

no  5522  i  in  i  * n i ik 

IDSI  IIDFKSLOT 

11(1  DSI  0  I  '  I  DSL  >  .  NL  .  0  )  GO  I  0  5522 
I  DD“  1  ID 
IC  (KM  )  I  ID 

IF  (  I  SCANF  .NF  .<>'  GO  TO  522 

KN I D < K  '  - T  N I  D ( I  )  +  1 

I F  (  KN  I  D  (  K  )  .  I  f.  .  NKDMX  >  GO  TO  523 

KNUKM  NKDMX 

UK  I  TE (7,  540 )  K  *  NA » NEL 

540  FORMAT  ( 1  X >  '  TOO  MANY  SEGMENTS  ON  Tl.  '  ,  T  2  >  '  RAD  '  *  1 3  ,  '  EL'  »  I3> 
523  IDSI OT < IDSL )=KNID(K ) 

KNI DA  <  K  »  KN I D ( K  > ) - KN I D ( K ) 

GO  TO  5523 

c: 

5  2 2  I D S LOT ( I D S L ) = K  E VENT 
GO  TO  5523 

c: 

c  note: 

c:  WHEN  ALL  ID,S  ARE  USE  D  > 

C  IIKNIDF ,K>  MILL  BURDEN  All  OTHER  CELLS 

C 

5522  CONTINUE 

IC  <  KK 1 ) -  N I  DF 

I F ( ( MOO T , EG . 0 ) . AND . f ROVER )  WE I TE (7,6007) 

MOIJ T-  MOUT  I  1 

6007  FORMAT ( '  HELP  TOO  MANY  FIXED  CONTOURS,  NIDI  EXCEEDED ') 
KNID(K) ~KNID(K)+1 
I  DSI  ...OT  ( I  DSL  )  :"KN  I D  ( K ) 

IID-NIDF 
TDD- I ID 

5523  KDD ( K )  =MAXO ( KDD ( K ) , I DD ) 

I  TD--IDD 

C 

C  PI..OT  IN  I.  i  l: Al  EDGE 

C 

I  F  (  .  NOT  .  COPLOT  .  OR  ,  NA  .  FIT  .  1  )  GO  TO  527 
KID= IC(NPATKK) 

KDSl.~KID-IKSL.OT 

C 

C  . . . 

C 

L  .  «  .0 . ....  0 .  ...... 

c 

CALL  PLOT  ( IC  <  1  I  KK ) ,  2 ,  IC  ( 2+KK  )  ,  2 , 1  DSI  (I  T  ( IDSL  >  r  K ) 

527  IF( ISCANE.NE.O)  GO  TO  561 
C 

C  SUM  NEW  CONTOUR  ATTRIBUTES 
C 

MIID=( IID-1 )#IAT+KATR 
MI ID1-I AT+MI ID 
Mini)- (Tim  1  >*IAT  TKATR 
I M I DD= I AT  EM I DD 
KICE=KEVENTEK IC 

ATR<  1 TMIDD)  =DEl.TAZ*CI  1  (KICE  )  EATR<  1+MIDD) 
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A  I  F<  (  2  EM  I  I'll  >  -DEI  TAZ*CI2  <  K  ICE  >  E  A I  R  (  2EMID D  ) 

A  1  K  «  3  1  H  I  It  U  •  < ;  II I A  *  D  F  L  T  A  /  *  l ;  1 3  <  K  I  CE  >  FAT  R  (  3 EM  J  DD  > 

A I  K  <  4  I  M  l  U  D )  ■■■■■■  ( 0  S  A  *  Ii  E  t..  T  AZ  *  C  1  3  <  K  I  C I  >  E  A  IK  (4  EM  I  H  U  - 
IF  1=IC(3+KK) 

i  i:di  =  io<npa*if  i > 

A  I  R  (  J  M  t  ri  II  >  -  I  Li  S I ...  0  T  <  I  1 1 J  J. ) 

c 

f  FI  AC.  I  I  ICE  S  (  > 

i; 

II  (  ICCIEKK)  vEQ.I  ,0R.  1C(2+KK)  .ttl.  I  MX  I  AIRE  IMIDFO-- 
t  AIiS  <  ATR  (  I.  M  l  I iD  )  ) 

C 

C  SUM  RAIN  KATE  CUE K  AREA »  L  OWEST  El 

C 

II  (NFL .01 . t )  GO  TO  561 
DSI  ( IDIi  EKSL  OT  )  ==DI  (  KICE  )  #DELTAZ 

561  CONTINUE 
C 

C  INCREMENT  EVENT  COUNTER  AND  PASS  THROUGH  ASSOCIATION  AGAIN 

0 

562  K E V E: N T K E V E N I  + 1 

K K  -  ( KE  VENT  -  I ) * N P A  E K I B C 
KK:l=KK  ENE’A 

r E  <  KFV E N  T ,GT. I  EM. AND. I E VENT. G 1. JEM) GO  T  0  6 0 1 
I F  (  K  f  •  V  F:  N  T  .  G  T  .  I E  M  )  G 0  1 0  4  8 1 
I F ( X EVENT . GT . JEM ) GO  TO  52 1 
GO  TO  332 
601  CONTINUE 
C 

f  END  CONTOUR  ASOCIAL I ON 
C 

611  CONTINUE 

C* 

C#  IDENTIFY  TL.(l)  SEGMENTS  WHICH  ENCLOSE  HIGHER  THRESH  SEGMENTS 

C# 

IF (NEL.NE.l )  GO  TO  650 
K~NF  C 

IEMX::”ICVNT  <  1  ) 

IF(IEMX.LE.O)  GO  TO  650 
615  J=K- 1 

I F  (  I CVNT  (K)  .  I.  E  .  0  )  GO  TO  635 
KIBONIEMXKJ 
KSL.0  T  -NT  DF  *  J 
JE=1 
JK “K I  DC 
C 

r:  L.  0 0  P  T  H  R  0  U  G  H  1 1.(1)  S  E  G  ME  NT  S 

0 

DO  620  IE”1 » IEMX 
IK=< IE-1 )#NPA 
C 

C  LOOP  THROUGH  T L  < K >  (HIGHER)  SEGMENTS 

C 

625  CONTINUE 

IE < IC  < 1 f JK ) . GT . I C ( 2+ IK ) )  GO  TO  620 

IF ( IC< 1+JK) ,GE. IC( 1 EIK) .AND. IC(2+JK) .LE. IC(2+ IK) )  GO  TO  645 

KNIDI=0 

GO  TO  619 

645  KNIDI~inSLOT< IC(4EIK) ) 

619  KNIDJ~IDSl.  OT  <  IC  ( 4  E  JK ) +KSL.OT  ) 
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KNLLU  (.J»KNIIU)  "KNJDI 
J(  ih  ♦  I 

TF  <  .11  .  0  1  .  I  CUNT  (  K  )  i  GO  TO  ATS 
JK  (  Ml  -  1  >*NPA+K1DC 
go  io  ams 

F 

6/0  ('ON  I  I  NIK 
i: 

('  DECREMENT  COON  IT  R  TO  NE  X  T  LOWER  THRESHOI  ..D  l  E  Of  I 
C 

A  3  5  K  •  .1 

I  (  (  K  .01 I  GO  10  ATS 
AGO  CONTINUE 

C* 

C*  I  OCA  IT  RE FI  A NO  SHEAR  PEAKS  W  I  TH  I  N  CONTOUR  SEGMENTS 
('* 

I E  MX  ■"  I CUNT  <  KL VI  > 

KIFIC  NIEMX*(KIA'l..-l > 

C 

C  NOTCH  3  GATES  AROUND  FOLDING  OFFSETS  FOR  CELL  DETECTION 

c;  note:  zi(I)*lkhi> 

c 

DO  270  N  -  .1.  *  NOCTR 
I  ""NOTCH  ( N )  T  1. 

270  W( no 

c 

C  (OOP  THROUGH  EACH  SEGMENT  ON  THE  KLUI  THRESHOLD 

C 

DO  280  TEAM. » IEMX 
.I  AD;~  (  IE -1  >*NPA+KIBC 
II.  -=1C  (  l  f  t  All  > 

IH"  IC ( 2+ TAD) 

C 

L  REEL  PEAK  DETECTION 

0 

DU  285  t  =  T  I. .  IH 
DEL  I  W::"W <  1  )  U<  I  I  ) 

(I  (DEI  TW.L1  .0)  GO  TO  171. 

I  F:  (DELTW.GT.O)  I  PH  I  l 
GO  TO  1.81 
C 

l.'M.  CONTINUE 

IF  (IPH.EQ.O)  GO  TO  181 
TP "I P+1 

IF  (  IP  .  I...E  . UMAX )  GO  TO  1711 
I F  (  P  R  0  0  E  R  )  WRIT  F  (  A . 1. 9 1. 3  )  I P  .  I  EVEN  T 
191.5  FORMAT  (IX?  1  7HN  PEAKS  EXCEEDED  »  21 A  ) 

IP- UMAX 
GO  10  181 

1711  I PR NO ( IP>  =  ( I +  IPIO 72 
IPB=0 

181.  CONTINUE 
C 

C  SHEAR  PEAK  DETECTION 

c 

I F  ( T  S  (  I  )  .  E  0  .999)  G  0  I  0  1. 9 1 
I F  (  I  S  (ID,  E  0  .  999)  G  0  T  0  2  0 1 
D  E  I  T  0  I A  D  S  <  I  S  <  I  )  )  :r  A  B  S  (  T  S  <  I  1  )  ) 

IE  (  DEI.  TV  .  I  T  .  0  )  GO  TO  191 
TE (DEI  TU.EO.O)  GO  TO  285 
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'.’0 1  I POD  I  I 

mi  in  vns 


I9i  i:f<  ipud.iu.o)  if o  ui 
i po  nvi  i 

II  (  I  I  'M .  I  L  .UMAX)  no  10  1  9 1  .> 

1 1-  (  P K 1 1 0 1  R  )  UR  I  I  E  (  6  »  I  9  I  3  )  I  P  0  ,  I  f  0 INI 
no  TO  90S 

191?  IP 0 P  N  0 (  I P  0 ) = (It  I P  0  D ) / 2 

I  POP -0 

."'Oh  CONI  IN  UP 

r 

i:  I  NU  01  SEGMENT .  CLOSE:  OFF  ANY  REMAINING  PEAKS 

i 

C  I  (FPL 

II  (1PB.FQ.0)  GO  TO  251 
IP-IP+1 

I F  (  I P . PE .UMAX) G 0  T 0  2 4 2 
l  F  (  P R 0 V ER)  U R I  r E  (  6 . 1  9 1. 3 )  I P  *  I  EVEN ! 

IP -UMAX 
GO  TO  243 

2  4 2  I  P  R  N  G  (  I  P )  ~  <  I  P  I P  B  )  /  2 
24  3  1  PIP:  0 
251  IDC<IE)«IP 
shear 

.IFCfPOB.EQ.O)  GO  TO  261 

IPO::::  IPO  PI 

it  (IPO. i  t:  ..IhAX)  no  to  252 

IPO “UMAX 
GO  TO  253 

2  5  2  I P  0  R  N  G  ( I P  0  )  =  <  I  P  I P  0  B )  /  2 
253  IPOB-O 
261  I  DO t.  IE > ™IPO 
280  CONTINUE 
C 

C  REFT.FCTTOITY  CELT.  DETECTION 

C 

B~C 

C=C+1 

I  F  (  C  .  1ST  .  MXAD  >  C-1 
I F ( . NOT . CONTRZ ) GO  TO  800 

CALL  PEAKD  (  U  .  EDO  >  TL  <  KLOL. )  . 3 .  NCEL  *  TATR .  NUMAX ,  IACT ,  IDC » 
P  IPRNG  »  HR  »  NMR  *  TS .  IP  TAR ,  I  TAR  . I.PNTR  i 

+  IP1R.fP2R.TP3R) 

P. 

C  TANGENTIAL  SHEAR  CELL  DETECTION 
C 

800  T.F< .NOT. PONT RO)  GO  TO  800 0 

CAL  I.  PEAKD  (  TS » l.  TO  .0.4.  NOCEL .  OATR .  NOMAX .  I  AGO.  IDO . 

P  I PORNO . HO  v  NMO , U . IPTAO » I T AO . IPNTO . 

P  IP 10 .IP 20. IP 30) 

8000  CONTINUE 
C 

C  I SCANT  =  (+/-)!  INDICATES  END  OF  SCAN 

C 

IF( ISCANF.NE.O)  GO  TO  871 

C 

C  PREPARE  FOR  NEXT  RADIAL 

C 

DO  810  K=:l » NFC 
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) 


IK  "K  I 

M  HI  Nil  MX  ♦.IK 

I  RUN  |  ( I,  i  I  (  UN  f  (  K  ) 

II  MX  Hn\iH  I  »  I  M"N  I  (Is)  ) 

IIM AX  Ml' A T  II  MX  t  K  HU' 

MM  I  N  I  II-  IHI 

UN  K  I  I  v  S  1  RAH  I  A!  MAUI  SEGMENT  I  M'S  FOR  h  MM  AROUND  ASSOC  I  AT  TUN 

ii  (Na.ni  .  i  )  i.n  io  ins 
I.SI  01  N  I  Ml  *  IK 
i  r  ris  •  1 1  max*. its 

MO  0 'S  I  I  .  I E  MX 

I  I  M  “  IT.  (  J*NE‘A  FK  IRC  ) 

II  .  I  1M.  I  I  .0)  GO  TO  BOS 
ink-  1  I )  i  E  M  ‘  I  R 

r  I  R  t  !  CTEO  1  MSI  or  (  T  EMFKSI  0  I  > 

BOS  lONTINUI 

Si!  CURRENT  RAM E  A I  SEGMENTS  INTO  PRIOR  RADIAL  ARRAYS 
ON  FIRS!  RADIAL'  LOW  SCAN  SAW  CONTOUR  END  POINTS  FOR  PLOT 

IF  (NEl  ,  NE  - 1  )  00  10  815 
TAUNT (K)  ECUNT(K) 

MO  BIT  Nil  NMIN.NMAX 
I  A' Nil  >=■  IC(NTE.) 

I  M  >.  M  I E  )  I C  (  N I F  ) 

m  i  n:  ..Nil  )=o 

GO  10  BIO 

FIS  i  ON  II  NOE. 

MO  B1A  NEE  •  NM  I  N  ••  NMAX 
I  FKNTE  )  IC(NTF) 

B  I  A  IF  (NIT  ):::•(> 

B  I  0  IT  UN  T  <K  >  ~<> 

RETURN 
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I  ,  j  i  u  >■  ('.on  i  k:> 


r 

r  T  *  *  *  ******  *************** 

t.  I  (NISH  SCAN i  I  INAI  RADIAL 

i  ************************* 

I 

II  '  IHCANL  .1  I  ,Oi  no  1(1  071 

c* 

C*  INI  I  LAI.  AND  PINAL  A7MIJTHS  MATCH 
0* 

I  P  h I  ’“  A/NORM 

HO...  r  A/  A/S  r  AR  TEMP 

A7 NOW “A/ STAR 

c 

C  RECOVER  I  N]  1  I  Al  RADIAL  DATA  AND  ASSOCIATE  INITIAL.  TO  FINAL  KADIAI 

C 

DO  87  11.  1/  1  .NIL 
TS< IX) -  l l ( IX  > 

0711.  W(IX)“WiriX) 

00  TO  71 
C* 

C*  SORT  I  N  I  DA  TABLE  TO  ESTABLISH  BASE  CONTOUR  ID  VALUE 


c* 

8/1  CflNIINIM 

no  ’<jo  h  l  -  N,  r 

11  hx  t  rJ  in'.  K  -> 

u  <  ii  mx. i  !  .  n  on  to  ;oc 

HO  '0  1  11  I  v  |  |  MX 

.1  :  I  I: 

■o/  i  on  i  riO-.Kf.n 

IF  it  .  I  II..I)  00  10  701 

0  1 

00  10  .'0'.' 

0  I  ON  1 II A'  I-  .11  >•  i 
700  ! 'ON  I  I NOt 

II-  (  I  SI  (INF  .01  . 0)  00  TO  872 

0* 

OF  l M I  1  I  At  AND  FINAL  AZMUTHS  MO  NOT  MATCH 

i  ’* 

MO  821  K  ~  I .NFC 
IK--K  I 

MBC:  NJEMXfcJK 
i\  A  1 R  N  I  MA  1  *  IK 
KOI  0  I  N  IMF  *JK 
M'  IE-  It  MAX*. IK 
I F:'.  M  X  •  =  I.  B  V  N  T  <  K  > 

I T  ( I E  M  X » E  T  :l  )  GO  TO  823 

c 

0  R  AG  FINAL  AZMlITH  BOUNDARY  CONTOUR  ID  VALUES  NEGATIVE 

C 

no  822  n>  .1  •  U:  MX 
I  K  t.  •  F.I  #NPA  FK  FBC 
I  K  ::  I  K  I  NF'A 
FMMRMUM.  ) 

MIMMR  A1*  i  DMFKATE 
A  I  R  (Ml  D  M  )  A  B  8  (  A  T  R  <  M  I  M  M  )  ) 

r. 

i:.  CLOSE  OFF  CONTOUR  PLOT  ON  f  INAL.  RADIAL 

C 

I  K  <  ..NOT.COROI  1  GO  TO  822 
IDSL"”  IBM  +KSL.OT 

CALL  FT.  0 1  <  I B (  I.  H K  > «  2 *  I B <  2 H K  )  «  2  *  I M S L. OT  ( IDSL  )  »K  ) 

822  CONTINUE 

i: 

C  FLAG  INITIAL  AZMUTH  BOUNDARY  CONTOUR  IB  VALUES  NEGATIVE. 

C 

825  IFMX*" I AVNT (K) 

IF  (II  MX.  IF  .  I  :■  GO  TO  82.1. 

DO  823  LEARIE  MX 
ICTR-IE+KCIR 
KN t DU~0 

K  N I  I  T  T  --  A  B  S  ( C  T  R  ( I C  T  R )  ) 

I E  <  K  N I D  T  .  G  T  .  K  M  I  M  <  K  >  .  0  R  .  K  N  I  M  T  .  E  0.0)  G  0  T 0  8 2 3 
KNIDU”KNIDA ( K » KNIDT ) 

MO  829  J  I »  N  F  MF 
I  MY  I  MSI.  OK  HKSL.OT) 

IF  <  KNIDU  .  1:0 . 1  MY  )  GO  TO  8291 
829  CONTINUE 
GO  TO  823 

899  .1.  I  A  I  A=:  J#I  AT+KATR 

ATR< IATA)~-ABS(ATR(IATA) ) 


C 
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1 

I 


I  I  0  1  (  ON  Utah'  I  Hiil  >;  ON  INI  I  1  At  K All  I  At 


II  (  .  NOI  .  I  DPI  I)  I  )  lid  III  G7  < 

II.  (II  I  '  #NI'AIM  DC 
A/NliU  A  .  '  I  At 

i  v  a,’  t  •  .  rn:;t  a/nuui  » 

S  I  I  'A  /  <  I  i  ■;  I  N  <  A/ NOW  i 

r a i  i  i  ■!  o  1 1  r  a  (  i  H  k  ) .  i . :  a  ( :>  1 1 1  ) .  i .  kn  mu .  i\ ' 

TV.M  l  l  lii  1  I  NOI 
!!  >  I  EON  I  l NOt 

!  ■  * 

r:  i  ■  i  mu  i  'll  a  riiNiouo  m  tari  f  on  i  nut.  si  n  i  vaiion 

i  + 

it  '.'  CONI  INIII 

1 1  <  or  i  , mi  .  i  >  on  in  ‘.w 

i  ■ 

.IN  I  1 1  •  > 

HO  704  K  I.Ntl 
It  M  *  KNI  IKK  . 

1 1  >  Ml  .  I  II)  NO  I  0  704 
Ml  N  III  KNI 1 1 M  <  l\  ) 
i  N  I  UN  I  K  )  Ml  MX 

l 

i  ;  OHM!  I  'UN  FOURS  AT  FACFI  I  tile  t  SHOL  D  IF  Of. I 


I iu  /OS  JF  •  I  y.lFMX 

it  (  it  mu  .  kn  i:  it  a  <  t  .  it  >  i  nn  in  7  os 

IN  1  IN  Him 
IN  r  HA  <  K  .  If!  )  =MN  m 
.’0':,  CON  11  Nl It 
i: 

r  RF  mil  I  KNI  DA  HI  RFC:  TORY  TO  BASF..  CONTOUR  ID  VAI.  UES 
C 

DO  .7  0 A  .IF  1. .  JEMX 
l"  t  N  f  DA  <  K  y .  It  - 

•A.s  IN  ItiiVK*  II  )  ■sJNTDA(K.J) 


i ; 

T  DIRFCT  ENCI  OSLO  CONTOUR  POINTERS  TO  BASE  CONTOUR  ID 

0 

IFUK.FO.I)  GO  TO  704 
I  '  K  l 

DO  7()8  .IF-  I.  ..If  MX 
. J  KN T HI  (I  .Ml  1 

'/  0  8  I-  N  I  D I  (I  ..If  ■>  ~  KN  I  DA  (  1  .M> 

C 

C  ESTABLISH  DIRECTORY  ON  NEXT  HIGHER  THRESH  LEVEL 
C 

704  CONTI NUF 
C 

i;  lolitotoMrIolloloDtototoK*************** 

r  PREPARE  FIXED  CON! OR  ATRIBUTES 

(  He##**#*  *********************** 

C 


I E ( P  R I  Nil)  UR  I T  E  C  A • 7 1 2 ) 


71.7  FORMAT 

C  17X 

* 

'  AVE 

/ . LOCATION . 

. . / 

AREA 

AVE 

F  IX'  / 

t  5X  .  ' 

nn 

AREA 

REFT 

FAST  NORTH  RANGE 

AZM 

RE  SEN 

PRECP 

CTR  '  / 

t  '  I'D 

DB7 

KKM7 

DU  l 

KM  KM  KM 

DEG 

ELMNT 

MT/HR 

REF  '  ) 

r. 
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DAI  t  I  -St  TRI#DAZM#1.  .E-03 
ft  <KNTI.»<KL  VI  >  .1  T.  I  )  GO  TO  1  4.13 


I.  M  Ml 
II'  K  I 

l\[  hX  l  .M  1  1 1  <  K  > 

K SI  111  N  I  III  *. IK 
M,  I  R  M  I  HA  I  *  lh. 

/i  i'll  i  ( in  mi uc  .'icnidiii  akiks  at  start  or  scan 
i  xr  i  o 

NT  U  0 
NKIUI  o 
MK  ■> 

Ai  r';  <» 

WT  1“  .  ■  n 
Nl  MX  1 1 

It  vNKNI  B.T  0.0)  (id  ro  I 

no  sit:’  i  r*  f  .nkni n 

I  KNTTiCi  tm  o 
M  i"  ON  T  I  NOT 

T  At  Cl  II  ATI  NIHiKI  R  (IT  CONTOURS  IOR  LOWEST  LEVEL 

N  I  IU\  KIUKKI  ML  > 

I  OOP  T  TIKOUGU  EACH  SEGMENT 

IK)  93.12  J=  :l  .NIDK 
IAT  •  1.  )*IAT  T  EA  T  R 
JAK  “.H  KSEDT 

f  F S I  S  F  ORAGE  SLOT  FOR  DATA 

1 1  <  T  Vi  S  L  0  T  <  J  A  K  )  .  E  0 . 0 )  G  0  T  0  9 3 3  2 
Till  .1 

CHECK  DUALITY  OF  DATA 

IF  <  A 1  R<  1.4  IAT  )  ,l..T .  TATRMN . OR. ATR( 2 f JAT )  . LE.O)  RO  TO  933 

riFconr  contour  attribs 

ABAR-ATR ( 1 T  IAT ) 

/  n  A  R  •■AT  R  <  2  » .  I A  T> / A B AR 
/  ABAR  =  I  .  /  (  A  BAR  *7.  BAR ) 

ABAR- SFTR{*ABAR 
X  B  A  R = A  T  R  <  3  »  J  A  T  )  *  Z  A  B  AR 
YBAR=ATR( 4+JAT >*ZABAR 

All  JUST  UNITS  AND  CONFUTE  FINAL  AT  TRIPS 

ABATE-  A  BAR#  1  .  E9*C0SFHI 
XBAC  XBAR#:!  .  E -3 
Y  B  AC = Y  B  A  R  #  1 « E  -  3 

R  BAR --SORT  (  X  B  A  C  #  X  B  A  C  4  Y  B  A  C  #  Y  B  A  C ) 

REEL  I  S  :ABAR/ ( RBAR#DACEE ) 

A/PAR  -ATAN2 ( XBAC  » YBAC ) #DFR 

IF ( A2BAR . LT , 0 . )  A  7  B  A  R  ~  A  7  B  AR + 3  A  0 . 

/BARRIO . *AL0G1 0 ( 7 BAR ) 

TF'REC--  BS  r  (  J  )  #SF TRI  #1  ,F~9*C0SPHI 
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1 RAM  ACHM  I  A  T  f  It  n  (  I  <>  10  A  COMMON  ID 


I  A  In  lAI  I  IAI 

i  n  r  no  o 

I'  M  III',  A  I  K  <  I  A  I  A  I 

I  NI  UK'  lAB'.lkNIDS) 

II  (KNIDK.  I  I:  .O.OIdKNIDR.Ol  .M  MX)  GO  TO  6023 
I  I.  AO  I  1 1  Of  S  Nl  GAM  VI 


l-.N  I  DO  Si  GN(KN  IDACKI  01.  *  KN  I  DK  >  .KN1DS) 
m'H  I  ON  M  NUI 

INI  RI  MI  NI  CONTOUR  COUNTER 

I  XI  I  I  XI  1  II 

I I  ■  I  XT  I  .GT  .  Nl  ARM  I  GO  10  9323 

SHORT  I  I  XI  U  CONTOUR  A  I  I  R  I  D<i  IN  ICl  (  ARRAY  '> 


■  I  >  ARI  A 

M  I  'Ml  XI  I  i  '-A  BAR 

(•>'  AO  (I  .  Rl  TIT  C  TIMMY 
I  IT.  CMXCI  )  /MAR 

CO  I  AST  CENTRO  I D  P 0 SI1 I 0 N 
I  Cl  MM  IXCT)'  XDA0*C0SPHI  HUONG 

(4)  NORTH  CENTROID  POSITION 
T  Cl  H.l  XC  I  i  "YDAOTCOSPH  I  EDI  A  I 

(5)  IOTAI  WATER  M  UX 

I  Cl  ■  V,  I  XCT  P  TPRI-C 

1 1  uster  ci  M  id 

I I  IT  |  XC!  )  KN  I  DO 

I  III  <  7,  | X  c  I  >  -  0 

II  Cl  •  :•! «  I  XC  .  )  0 
II  C|  >:  V  »  IXCT  )■■■•(> 

1 1  ( PR  I N I  I  ) 

f  UR  I  n  <  A  ,  71  A  >  I D 1.  «  I TL  <  K  >  » ABAR  .  ZBAR  *  FCL.  (  3  v  I XCT  )  >  ECL  (  4  *  IXCT  )  « 
IRR  A  R  .A/BA  R .  R  C  E  1. 1  S  >  T  P  R  R  C  ,  K  N I  DO 
/  I  f  >  I  0  R  MAM  I  X.  1 3  .  1 4  .  E  7 . 3  v  F  5.1*  3  F  6.1.  F  7 . 1 . 2  F  6.2.14) 

110 1  1  HAT  I  D  IS  VALID 


KKNID  tAPS(KNTDO) 

T I  ( KKNI D .  I  E . 0 . OR . KKNI D . GT . KFMX )  GO  TO  9322 

SI-  I  Cf  I  I... /CONTOUR  POINTER 

K  N  I  DC  (  KKNI  D  )  I  XCT 
1 1  ( K  K  N  I  D  .  G  I  .  N  K  )  N  K = K  K  N I D 

GO  TO  9325 

I  N  l;  RE  Ml.  Nl  1.  D  0  VT  R  T  L  0  W  C  0 II N  T  E  R 

9327  NKDO -NKDOf 1 
GO  TO  9325 


INCREMENT  CONTOUR  OVERT  LOW  COUNTER 


9  /. 2  '  Nl  0  NT  0+1 
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f 


I ' 

I  SOM  AEi  A  AN  l-  UIA  I  i  K  I  III*  T  ( J  T  Al  V;  FOk  All  CONTOUR  REGIONS 

I 

9.125  A I  CC  Al  CS»  ABAC 
WFGS-UI  l  ‘  (  I  CRM  C 

'Mr..'  coni  inuf 

i: 

|-  I’M  IN  IHI.iiimn  mi:  KNIDA  TABLE  FOR  THE  CELL /CON  TOUR  POINTER 

i  ‘ 

HO  ‘M  I  IF  I  .1  N  111-:  KL  Ml  ) 

I  U  KNI  IiA'KI  Ml  «1F  ) 

IRHUF.O.OR.  [E.GT.KEMX.OR.lE.EO.IEi)  GO  TO  SMI 
KNiUiM  IF  >  -  IsH  HU  <  ILD 
<M1  CONTINUE 
S’  M  CONTINUE, 
c 

r  F  I  F  AN  UP  COUNTERS  A I  END  OF  SCAN 

i  • 

Nl  MX- I XC  1  ~  NF 0 
Ml 'MX  - 1  XR-NCO 
NSCMX  I XS  NSCO 
[ESDI.  NEE 
I  F  AST  -  F  I..  FUAT 
rr  (NK-GT.O)  NkNlIi  NK 
r 

r  TRACE  ALL  ASSOCIATED  REFl  ECTIVITY  CELLS  TO  BASE  CONTOUR  III 
r 

BO  9475  J=1»NCMX 

iup=o 

I  UR  ”  I  APS  <  I ECL  (  5 » ,1 )  ) 

TEMUR. I .  E  ,O.PR.  JIJR.GT.KN1D(KI  01.)  )  GO  TO  9425 
I UP--KNIDA  < Kl  OF. ?  I  UR ) 

9425  CONTINUE 

IECI  (5,  I)  =  II.IP 

IF  <  TUP.  ITT.  NKDMX)  I  ECL.  ( 5 » J )  --NK  DMX 
9475  CONTINUE 
C 

C  TRACE  ALL  ASSOCIATED  SHEAR  CELLS  TO  BASE  CONTOUR  ID 

r 

DO  9578  J=!. NSC MX 
.[00  =  0 

I I IR-  I ABS  ( I F  SCI.  <  5 « J )  ) 

IF < FUR.FE.O.OR. IUR . GT . KNID ( KLOL ) )  GO  TO  9525 
1U0  KNIDA ( KLOL » I UR ) 

9525  CON  I  I  NOE 

IF  SCI...  (  5 1  J  )  ~  TUV 

I  F  (  I  00  ,  OT  .  NKDMX  >  I  ESC  I  <5  .  .1  >  -NKDMX 
9578  CONTINUE 
C 

C  * 

c 

1 4 1 X  CONTINUE 
ISCANF-0 
RETURN 
END 
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HIRkHlIINE  I'l  Ith  IK>I.  IK.J»KNIH»K> 


************* ******************************************* 

NAMl  *-  PI  (II 

►■!•■>.  ‘Hi:  I  I'  I  A'.  '•>  600  I  r  A  A  > 

I  tmp"M  ■  UH  I  1 1  I  UN  I  I Hll  ROUND, -PY  I.UCAHONS  10  AN 
INIIkNOI  -.IKAKH  Mil  .  I  NCI  Hill  ENID 
NUMDI  K  UN  IJHIIH  111  ASSOC  I  A  If  St  OMI  NIB. 


I  N  I  I  1. 1  At  I  • . 

i  r,  i  i  i  mi.  him:  com  ink 
i  Ai  i  i  ‘i  nous :  noni 


Mil  ill  I'AkfV 


Ik  HANOI  GATE  OF  XI 
I  KAfUAl  COHF  Of  XI 
Ik  RANGE  (.AT f  OF  x:? 
I  RAM  I  At.  com  OF  X2 


Y  1 
Y 1 
Y2 

Y2 


KN  l  li  TON  TOUR  SEGMENT  ID 
k  THkESFIOI  !i  I  EOF  I 


unit  mi  farm:  none 
I  mmmiin  hi  ores 

I  IRMA  TED:  NONE 

kl.AU  :  H  ON  ,  I  ANGEN  I  *  DECODE 


COMMENTS!  CONTOURS  ARE  001  ROT  ON  2  THRESHOLD  LEVELS 


C 

i 


ME ks I  ON : 

da  it  : 
he  sign: 

f'E'OOMR : 


HO  DEE /MAX  It 
1/26/81. 

SHOOS TAP  SON 
ORGUS  TAF  SON 


^  ^  ^  ^  tf.  .r  ^  ™  *•  ^  .p  ^  ^  'P  ^  ^  ^  ^  *  *  *  *  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  T'  ^  *  T.  *  ™  *  *'■  T'  T* 


COMMON  /ICON/  St  I  R  T.  r  RNGDI  Y  .  SE  I  FI.  *  RANG  (  302  1  y  I  HOT  (  302  ) 

COMMON  'TANGENT /  SI NA(  COS A ( 2 t 

COMMON  /DEI. ODE/  UP  (  V  )  .HE  I  01  IT  ,  D|.  ONG •  Dl  AT 

Rl-RANG  ( IF.;  1 ) 

XI.  ::;:S ENA  <  T  )*k  I  EDI  UNO 
Y  .1.  "COS A  (  (  )*Rt  EDI. AT 
00  TO  20 


i 


I ' 

C 

e 


c 


USE  I  AS  f  X  3  „  Y 2  PAIR  AS  CURRENT  XI »  Y 1  PAIR 

t  fJ  I  K  Y  E' I.  0  T  2  (  JR  y  J  *  K N I D  •  K  ) 

,<  I  ~  X  2 

Y  I  Y2 

30  R2  RANG<  JR  1 ) 

X2  SINA(  I )  *R2  EDI..  UNO 
Y2=C0SA( J)*R2EDLAT 

OUTPUT  K  N 1 1 1  y  THRESH  LEVEL.  AND  VECTOR  END  POINTS  TO  INTERNAL  FILE 

II  (KNID.LE .0)  RETURN 
LI  R  t  T  E  (  O  )  K  N I  D  y  K  »  X 1.  y  Y 1  *  X  2  y  Y  2 

RETURN 

IND 
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subroui  ini  ff  Ai-rutM  db.  tm, it/ ,Ncn  i  »  tate,miimax,  iacj  .  mr, 

t  I  E'CRNG  *  I IH  , NMX , V ,  I  PTA  »  I  T  A  -  I  I  N  I  , 

f  I F  ’  1  ,  IP '2  ,  I  I'll 

r 

I1  l!***  **:*#****>)'  %%%'■<(  **  **  *****  ***c*** 


t: 

C; 

i. 

C 

i  • 

c 

i  ■ 

c 

i , 

i 

i  ■ 

r 

i  • 

c 


NAME  i  M  AI  D 

PRO  JIT  I!  EKI  AH/V  600  ( I  AA '■ 

PURPOSE.  t  ASTi  (IE  I  ATI  KIM,  IONS  Of  PEAK  RERFCIIVITY  UR  '.III  aU 

VALUES  U  nil  IN  CON  I  OUR  RE  Hi  ONS  III  I  ORM  ITAK  Ml  IE, 
AU.UMUI  A  I  E  C El  I  All  R  I  HO  1 1  !;  |  NCI  OH  I  NO  t 

1  >01  NTEOI  H  I.  OEAI  ION 

2  '•  ARI  A 

j. )  he  i  e; m 

4  >  REEL 
'.<)  SHf  AR 

61  CONTOUR  LIT  <  POINTER) 

AMU  II  SI  EUR  VAI  TIT  ATTRIBUTE  VALUES  • 


i ' 
( 
i 

r 

c 

c 

c 

c 

E 

r 


I  N I E  RE  ACES : 

(At  I.  I  NO  MOB.  CON  TOR 
r AEEEIT  MODS.  PKCEL.L 

T  NFTJT  PARM.  U , I  IT  IT  ,  TM,  I  TY  ,  TACT,  IDE.  I  PORNO,  ILIA- 
IT A » IP NT 


OUTPUT  PARM.  NCEl.E. *  TATR  «  HIT .  NMX  »  V »  IP1  *  IP  2.  IP3 
COMMON  BLOCKS 

A  Z  M , A 1 2  ,  C  MINT*  IT  A  I  AS  *  DATA  I  *  IT  E  C  0  B  E  *  F  T  I...  T  E  R  *  F I X  E  IT  *  E  L  G  S  * 
INSUB  »  KMC  TR  .  KNTBI  *  Cll  FS  *  OEM  PAR  *  PARM  *  PWORK  *  QUANT  X  *  I  CON  * 


V EL, WIND 


c: 

r  comments:  shear  parameter  may  be:  lithe :  tangential  shear* 

C  RADIAL  SHEAR  OR  TOTAL  SHEAR.  CELL  BOUNITARYS 

C  ARE  DEFINED  BY  CONTOUR  IT  BIT  BELOW  PEAK  VALUE. 

C 


C 

C 

C 

c; 


version:  I . X  DEC /VAX  II 

date:  1/6/bi 

DESIGN:  PKI  KANE 

P  R  0  G  M  R  :  0  B  G  U  S  1  A  F  B  0  N 


C 

I...  E  If  E  *|t  if  if  )|(  .ft  4c  4(  E  if  if  if  4c  E  *  if  1.  <|i  fi  4c  if  E  1i  lit  lit  4c  E  E  4c  if  E  4c  4c  .ft  4c  if.  4c  if  4c  It  4c  E  if  E  if  E  E  if  4c  .1 E  if  iff  T  4c  4c  4c  4c  4c  4c  4c  4c  4c 


C 


c. 


c 


c: 


I.  0  G I C  A  L.  P  R  INI  I  *  C  OP  I  0  T  ,  C  E  P I  0  I  *  C  0  N  T  R  Z  *  C  0  N  T  R  V*CA  1.  I B  0  .  P  R  0  V  E  R 
LOGICAL  NAONE 
REAL  I  ATE ( 1056  > 

REAL *8  OVA  *  SVB • SVC  *  SA2 *  SB2 , SG2  *  SAB , SAC  *  SBC  *  SV2 *  SB  *  SC 

IN  I  EGER  U  <  382  )  *  HIT  (  382  )  *  I  ACT  (64  )  *  I  DC  (  32  )  * 

E  I PCRNG  (  64  T  *  IE  CL  <10, 1  28  )  *  If:  SCI  ( :l  0  *  1  28  ) 

INTEGER  U  *  W I  *  HR  *  IS , T I  *  HV «  V ( 382 ) 

I  N  I  E  G  E  R  B  E  G  I  NT  t  E  N  IT  T  *  B  IT  A  Y  *  E  IT  A  Y 
INTEGER  TL*T*TM*B*C 

IT  I  MEN  S  ION  I P  T  A  ( 3  2  *  2  >  *  I T  A  <  3  0  *  3 2 , 2  >  .  I.  P  N  T  <  3  0 . 3  2 , 2  > 

DIMEN  S I  ON  I P 1.  <  1.  9  2 0  *  2  )  *  I P 2(1920,2),  I F'  3  (  1.  V  2  0 , 2  ) 

DIMENSION  GOUT (20) 

COMMON  /QUANT X/  VQUANT 

COMMON  ZKNT  Bl.  /  KN  I D  ( 2 ) » KN  I  DA  <2, 1024  > 

COMMON  /KNCTR/  LI,ITL(2)  ,  KLVL  ,  IN  I D ,  JN I  DA  <2,1  024  )  , 


1.04 


! 


f  KNlDh<2)  , KN1  III  <  I  •  1  024  ) 


COMMON 

HARM/ 

PRINT!  .(-OFT  01  ,  COT  01  ,  CON  TR7  ,  CONTRV  , 
NUMI  ,NIJMR 

CAL  I  DO, 

COMMON 

•l  1  OS/ 

PRCI  1  1.  ,  PRS 1 0  ,  PRF  1  XC  ,  FT  (Cl  US  ,  PRSCAN  ,  IRHEAD  , 
PRNOI S.PPDVI  K 

i  AMMON 

/I -WORE  ' 

h  hi) X  ,  1  i  1  OO  )  .  JMXDB  ,  UMAX  ,  1  AMAX  ,  1  R  ,  JR  , 

1  MX JMX  > NIT  ,N 1 D,N 1  DR,  1  MX , 1 MN 

i  I  iMMON 

-  oi  F  •:/ 

1  71)1  1  ,  F  /  OF  F 

i  1  IMMON 

1  1  XI  11/ 

Nl  1  ,11.(2),  It  (  256  )  ,  1  B  (  256  )  ,  NR  A  ,  IF  MAX 

1  BUM  I  (2)  >•  AT  R  <  2560)  ,  I  AT  ,  N  IDF  ,  KBD  (  2  )  , 

I  DSI  01(512) 

,  1CVNI  ( 

(  OMMON 

I  CON/ 

SF  1  R  1  «  K NO Dl  Y  .  BE  1  F  1  ,  RANG  (  382  )  ,  I HOT  (  3 

82  ) 

COMMON 

■  INSOB/ 

BE  0  INI , END  I , DEI  TR, SCON, ICOMP, 

DA/M  *  BDAY  *  F DAY 

COMMON 

/  A7M  / 

A7.Mll  I  II «  DAZES  ,  AZI  .AH  I  ,  NA  ,  EL  EVA  !  ,  B  ,  C 

COMMON 

/A  72/ 

SAZ,CAZ,DAZ, FSCANF , NO. 

COMMON 

/I  II  TER/ 

1  A  1  KHN .  ART-  AMN  ,  CE 1.  MN  *'  2  )  ,  SVMX 

COMMON 

/ 00 FPAR/ 

MOO  1  ,  NIIUV  ,  NOCTR  ,  NO  ICH(  30  ) 

COMMON 

/DETODF  / 

I  IP  <  9  )  ,  HI!  1  OUT  ,  BLONO  ,  Dl  AT 

COMMON 

/DAT  At/ 

F  Cl  <  1  0 . 1  28  )  .  NCO  ,  Nt  MX  ,  NR  JC 

COMMON 

'DAT  AS/ 

F  SCI.  <  1  0  ,  1  28  )  ,  NSCO ,  NSC  MX  ,  NSR.IC 

COMMON 

/COUNT / 

IXR. IXS 

COMMON 

/VEL  / 

I  S  (  382 ) ,  1 1 ( 382 > , HV< 382 ) , RV ( 382 ) , RS < 

382 ) 

COMMON 

/CM  1  / 

CEI  ,  SO.  ,  CEL 2  ,  ZM IN,  El  AST  «  Sf’RM ,  IPXilX 

COMMON 

/WIND/ 

SVA (14,8), SVB (14, 8 ) , SVC (14,8), 

4  !> A 2 <  1  4  ,  8 )  ,  S B 2 <14. 8  >  »  S C 2  (14,8). 

F  SA B  <  1  4  «  8  )  , SAC (14,8), SBC (14,8), 

4  SV2  (14. 8  )  «  SB  <  1  4,8),  SC  (14, 8  )  ,  NlJh  (  1 4 , 8  ) 

i  ohivai  i  ncf  a  ci  <  i ,  i. ) ,  n:  ci  (  i ,  i ) ) ,  ( t  sci .  <  i ,  i ) ,  if: sci. ( i ,  i. ) ) 

I 'AKA 'll  n  K  (  I  Z  r  K I.)  0  . .  I A  T  M  X  ~  1. 8  5  6  «  I  P  M  X  ”  1  V  2  0  •  R  P  B  ~  ,  0 1  7  4  5  3  ,  I)  P  0  -  1  .  4 


‘ if  1  IF  )  AIPCI  FOR  INTERMEDIATE  PRINT  OUT  TO  DEVICE!  6 
C  I  VF  S  1  AT R  (  ARRAY  >  %  UP  (  ARRAY  )  V Al  TIES 

RARAMF  !FR<  TFLAO  0) 

Cl  I  IF  I  AO 2 “1  FOR  PRINT  OUT  OF  PEAK  CELL  UPDATES  ON  DEVICE  A 
PARAMETER (I FT  AO 2^0) 

I  M  NUMBER  OF  ATTRIBUTES  TO  BE  COMPUTED 

PARAMF  1  FR(L.M"9) 

PARAMETER  ( I  MM  M  M  1  »  IDX”l.  MCI  ) 

JIM  IS  NUMBER  OF  EVENTS  ABOVE  THRESHOLD ( TL )  ON  CURRENT  RADIAL 

FIY  ~  3  REFLECTIVITY  EVENTS 

IIY  -■  4  HOP  IT  FR  VELOCITY  SHEAR  EVENTS 

IF  M  I  CVNKKI  VI.) 

NAY.  NA 
NCI  M  NCI  I 
I  MMP  I  M*NIDP 
IliriX  <  NIIMAX  2  )  /I  M 


1.1  '  I  UP.IM  .1  DhX)  I  DB=L.DMX 

I  HUM  I  DD  I 
NOME  ,'tl  M*t  IJH 
NH  Ml1 1  N LIMP  FI 
I  li  v  Ml  I,  if  I 

i  dxnp  i  hx*nidp 

I  Tt ;>  I  t  (l  III-: - 1  >*l  h 
I 

('  I  ■  I •; I  PAIN  I  OK  BACKGROUND  MIND  SUMMATION  PROCEDURE' 

i 

I  I  t  I  IY.NE.4)  BO  10  2 1.0 6 
PI  I  PA,'  PI  I  YPAZ 
CM.  SA/  Pf  I  *SA7 
'  I  l  •'  8FI.*SLI 

pflpaz?  p.  p  i...  c  a  z  *  c  e  i ..  c  a  z 
( :  1. 1...  s  a  1 2  ~~  c  pi  s  a  z  *  t:  e  i...  s  a  z 

PR  S 0 7.  ' P FI. 0 A 7. % 0 E l . S A Z 
SCI.  PA7.--SE‘L*CELCAZ 
SCI.  SA2=SFl.*CEL.SAZ 

I  OCT  AZMUTH*DPO« 

2.1  06  CONTINUE 

P 

P 

P  NA  RADIAL  COUNTER 

P  I  SCANT  =  1/-  1.  END  OE  SCAN 

P 

P  ZERO  CELL  A  I  T  RID  ARRAYS  AND  CELL  COUNTERS  ONCE  EACH  SCAN 
C 

I I  <  N  A .  NE .  I.  .  OR .  I  SCANT-  .  NE  .  0  >  00  TO  2 1. 09 
NOUT  =0 

NMX  =  1 

DO  2107  1  =  1. » NIDP 
7107  I  AC  T ( I ) -  O 

DO  2108  ,1=1 .  JATMX 

2108  TATR ( J ) =0 • 

C 

P  ZERO  CURRENT  RADIAL  ARRAYS 

C 

2109  NT3M-0 

DO  23  K  1  .  KMAX 
23  JF'NKK.l.  .0=0 
C 

P  OUTER  C  EVENT  LOOP 

C 

1041  NAONI-  NA.EU.  1 

,JEM  =  IBVNT  (  Kl  VI.  ) 

IE  (  I  EM.  I  T.  .0)00  TO  952 
I F (IE  M . 0  T . I E  MAX) I E M  = I E  MAX 

C 

C  DEO IN  NORMAL  PROCESSING. 

C 

P  LOOP  ON  EACH  EVENT  ON  CURRENT  RAIHAL 
P  LOCATE  PARS  AND  SET  THRESH  VALUE  LDP-  DOWN 

C  ASSOCIATE  PEAK  EVENTS  RADIAI  TO  RADIAL  AT  EACH  THRESH  LEVEL 

c 

DO  95.1  IE  1  «  TFM 
IF  1.  =  IE  1 
TFCA  (  IE  I )*NPA 
TCT  S  L=rr<  If  TFCA) 

T  PF  SP  T C ( 2  F  TEC A ) 
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F  I  HI  -  FCFNPAUECA) 
iff  Li  in .  t:i:i .  o  Hin  ro  vsi 
EAT  A  :T  I  I'll  #1  AT 

If  <  .NOI.NAONF  .OR.  1SCANF  .NE.  1)  GO  TO  938 
11  1  I  PIAFFE  -C) 
i . ( i  TO  940 

•:  I  I  I  A<  TF  ,0)  0 

i  PI  A 

1 1  (  I  I  .  10  .  t )  GO  TO  232 
HO  233  K” 1 >KMAX 
■  3  3  I  P  N  I  F  K  .  I  r  V  0  )  1  P  N  I  (  K  .  I F  1. ,  C  ) 

FPL  "  IPO <  IFF  > 

232  IP  TOO ( IF) 

IFFIP.FI  . IPLIGO  TO  95:1. 

IFF.  •:  I  PI  F  1 
II  I  0 
.11  2  O 


FT  NO  B  EVENTS  ASSOCIATED  WITH  0  EVENTS. 
JEM  IS  NO.  OF  EVENTS  IN  PREVIOUS  RADIAL. 

IFF  JEM  , F 0 .  OF  GO  TO 
I  F  F  JEM  .  OF  .  IE!  MAX  )  JEM" IF  MAX 

I  01  AH:  All..  JF  EVENTS  ASSOCIATED  WIT  i  IF  E  cNT 


no  3  i 

JF 

-1 y JEM 

JF:  A"  ( .11 

E- 

1 >#NPA 

IF-  (  I  DF 

2+ 

.if: A)  . 

LT. 

IF  FIB  ( 

1  1- 

...IE  A)  . 

GT . 

JE2-JE 

IF  FJE 

1  . 

FO .  0 ) 

JE 1 

CONTINUE 

FIND  l  FIRES  HOI  DS  FOR  IE  EVENT 

41  DO  51  J-l.JMXDD 
51.  I  <  ,1)  F> 

N  I  FIRE  S~  1. 

I  OOP  THROUGH  All.  CONTOUR  PEAKS  ON  CURRENT  RADIAL 

DO  7:1  L  ■  FPL  i  TP 

IF  FI  .  GT  .  UMAX  )  GO  TO  7  I 

TR1  -  I PORNO (I  1 

TF  (  FP1  .FT.  ICESDOO  TO  71. 

TF  <  TR 1  .GT.  I CERP ) GO  TO  7.12 

111  IK  I R  I  1 

Ml  T  TADS  (  III)  IMF  1 

FIND  All  UNIQUE  THRESH  VALUES  FOR  CURRENT  PEAK  EVENT 


DO  ’ll  K=lrLDB 
I r  MT  F  K 

IF  <  r  I  .1  f  .0)00  TO  71.1 
If  ( I F . GT . JMXDB ) IT-JMXDB 
If  F  I  F  FT  )  .EO.O)NTHRES=NTHRESH 
I  <  FT  )~1 
711  CONTINUE 
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'I  ri  INI  TNI  IE 


f 

C  ARRAY  OVl  Rl  I  ow 


12  I  i  I  0 

II  ■.  N  1 1 11(1:1 .  G  I  .  KM  AX  )  J  I 'SK  I  N1  ItRES  -KMAX 
1 1'  I  I 


G 1  OKI.  I  HI  KM  AX  HIGHEST  THRESHOLD  I.  LULLS 


I  111  '.’I  l  I  y  .  I  M  X  H  H 

iuhi  > , I  t :  •  a ,  >  go  i o  9 :i 

I  1  A  (.  Iff*  If.  »C)-1.  !  I  H  I 

I I  •'■•HI  I  PORT  I 

IF  (  [R5R1  ,OT  ,0)00  TO  91 
i or  •  if  r  >  i 

9  |  COM!  INI  If 
If  I  If  ' I  I 

II  '  I  f  •  1  *  (j  El  .  JR)  If!  -  JR 

iPTAat"  »(::)==  :r.p  t 

I  f  <  I  IT.  I  I  ,0)00  10  951 

c 

C  I  IN'  All  SEOMEN  TS  WITHIN  If  EVENT  THAT  ARE  ENCLOSED  BY  CONTOUR 
f 

I  DON  ICES! t  I 
IND  ICESf  f 1 
C 

C  I  OOP  ON  RANGE 

C  I 

DO  1. 6 1  r  IKON.  IND 


V 

r 

c 


c 

c 


r  i  “ii 

I  OOP  ON  THRESHOLD 

DO  131  K " 1 f IPT 

IF  (  U  (  I  ),[!).-  999  )  GO  TO  141 

I F  (  TABS  (11(C)).  L  E  *ITA(K»I E » C  >  )  GO  TO  141 

I  r  < U  (  i:  1  )  .  E  Q .  9  9  9  )  G  0  r  0  I  2 1 

I F <IABS<U<I1  *  >  * G T . ITA<KfIE» C ) )  GO  TO  131 

STAR!  RANGE  FOR  SEGMENT  (CONTOUR) 


1 2  I  I  P  N !  ( K 1 1 E  .  C )  =  I  P  NT  ( K  1 1 E  *  C  )  + 1 

IF  ( IP  NT  <  K  v  IE  *  C  i  .  I...E  .  IMX.JMX  )  GO  TO  121 1 
C. 

1 F  (  PR 0 V E R )  W R I T E  ( 7 1 1. 2 1 2 )  I  T Y  t  K  *  I E 
1212  FORMAT (2Xr 'NUMBER  OF  SEGMENTS  EXCEEDS  IMX ' » 51 10 t /SI 10 ) 

C 

I PNT  ( K  r IE  r  C )  ~  I  MX,  IMX 
1211  IPE~  IF’NT  ( K  f  IE  f  C  ) 

I REG- I 1 

IPEK“IPEKK-1  )*JMAX 
IP1 ( IPEK  »C ) =IREG 
IP3(IPEK,C>=0 
131  CONTINUE 
GO  TO  1A1 


C 

C  SUM  BACKGROUND  WIND  BELOW  LOWEST  INCLUSION  THRESHOLD 


f 


141  CONTINUE 


I 
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IMk.lil.'’  .OR.  ITY.NE.4  .OR.  RV  ( 1 )  .  LT .  990 .  )  D0  TO  142 
IT  <RANG(I  >  .LT.25.  .OR.  RAND  (  I  )  .  GT  .  150  .  )  GO  TO  142 
R All U  -  R V (  I  ) 

.1  l  Hi  1 1  (  l  > 

*  "A(  i.  ioi  n  bva< .)•  loci  > esei  *radv 
SMfK  l.  ion  i  TiV ft  ( . I  v  I  0 0  I  >  T 0 L  1  CA/KRADV 
DVl  <  I*  I  ODD  SVC( J.  TOOT)  TOET.  SA/*RAIiV 
■r.A2'.  .1.  1  (ID  I  )  DAT  <  .).  I  OD  l  )  ESEL.2 
DR 2  (  I  -  |  (H  |  >  -  SID’  (  I  r  I  00  I  )  f  CELCA/2 
D  C  2  (  .  I  ••  tom  SD2  (  .1 »  I  0  DC)  T  D  E  I  S  A  /  2 
DO  ’(.ID  OD  I  I  «SV2  (.1.1  ODT  )  )RAIlO*RAIiU 
DAK  ( ,1 «  r  OCT  )  ~SAI(  ( .1 .  1 OC  I  )  E S D t  DA/ 

DAD  (.1.1  ODT  >  “DAD  <  .J .  1  OD  T  )  +SCLSAZ 
SBC  <  J •  TOC  r  )  -SBC  (  J  .  TOOT  )  ECEL.DC/ 

S  !<(.)>  met  )  SB  (  J  .  1  OCT  >  +CELCAZ 
DC  (  J  .  I  or  I  T  “DC  ( .1  -  I  ODT  )  *  DE  L  DAZ 
ni.im ( .) .  i  or  r  t  NUh(  .)»  iodi  hi. 
t  4  '  DOM  (  INCH 

I  Nil  RANGE  FOR  SEGMENT 

HO  151  KL  =K  .  .1  E'T 

IF  (IK  I  I  )  ►  l;  0.  99?)  GO  TO  161 

i  f  ( i  absujcu  d  .le.  ita<kl  .  ie.ch  go  to  iai 

I  F'E  --  IE' N  T  (KL.IE.DT 
I  RF  G "  I  I 

TREK  IF'EKKL  -1  HUMAX 

IP2(  tpt  k.d)  =  :i:reg 
Tin.  continue: 

161  CONI  TNI  IE 


ASSOCIATE  PEAK  EVENTS  AT  EACH  THRESHOLD  LEVEL  -  IP! - 

LOOP  ON  THRESHOLD  -KC--  HIGHEST  TO  LOWEST 

DO  941  .  .1  F;'T 

KD  TP T  1  CEL 
IF  (KD.  IE.  OHIO  TO  941 
I  THRESH"- 1  FA  <  KD  >  I  E  .  C 1 
KDD  (  KC  -l  >*,.JMAX 
Nf'D  =  T.PNT(KC.  TE.C1 
NPL  -  0 

If  (  If  .GT.  1  )  NF'I.  -  1  F’N  I  (  KD  .  I  E  1  r  C  ) 

IF  <  NPC.I  E  .NPDGO  TO  94  1 
NET  =  NF'I  E  L 

I  OOP  ON  IE  EVENT  SEGMENTS  ENCLOSED  BY  KC  THRESHOLD  CONTOUR 

DO  921  I  F'E  -NET  . »  NF'C 
EPEKC-IPEEKCC 
I ETBM"  IP1  (  IPEKC.C) 

EHB  = IHBMf  1 
I  HD  -  I  E'2  ( I  F'E  KC  » C  ) 

K  “KC  1  I 

K.IMAX=KC*JMAX 
NPKO 
T  ATM--0 . 

LET  -0 

I  P  E  ~  I  E'N  T  <  K  »  T  f"  t  C  ) 


( 

I 

( 


I*  <  II  .•  li  I  •  I  1 1  II  ~  TPNT  <  K »  IE  1  »C  ) 
l.l -I  I  PI  H 

If  (I  ft  ,11  .1  ft.  HR.K.CT.  tPDGf)  ID  1.9;? 

IK)  !'•>  I  I  =- 1  I  I  - 1  I  K 
I  K  I  4  K  IMAX 

IT  i  IT  2  ( I  L  -I)  .1  I  ,  IHBM)  GO  TO  191 
if  111  <  I  K.l  >  .GT,  I  HU)  GO  ro  193 

fit'll  I  IS  4  OR  HI  y  I  HIGHER  (ENCLOSE  D>  THRESHOLD  ON  C 

NPl  I  I  '  l.f  I  K»C  ) 


II  (NPCI  I  ,1  I  ,0)G0  TO  1911 
T A  HI  A MAX  I ( I  ATM . I  A  TR ( NP CEL  )  > 

II  i  I  AIM. LO . i ATR ( NPCEL > ) NPK=NPCEL 
1 4  (  A  B  S  (  I  A  T  R  ( N  P  C  E I ... )  )  .  G  T  .  <  I T  H  R  E  S  H  4 1 . D  B )  )  G  0  T  0  9 3  2 
1 9.1.  CONTINUE 
GO  10  193 
932  NPL  -■  NPCEL 
GO  TO  1.93 
1.91  I.  NPK--UUDP4  I  ) 


C  ASSOCIATE  CELLS  ON  PRIOR  RADIAL >  TOP  DOWN 

C 

193  MPK-0 

lE(NAONE)  GO  TO  361 
T  AT  M  -0 . 

IF  (JE2.ET3.0)  GO  TO  371 
C 

C:  LOOP  THROUGH  EVENTS  ON  PRIOR  RADIAL 

C 

DO  261  JE::;:  JE 1  *  JE2 
JEA~< JE-  -1>*NPA 

IE  <  I B  < 2-4-JEA )  .IT.  IHBM)  GO  TO  261 
IF '(IBd  +  JEA)  .GT.  I44D )  GO  TO  3661 
C 

C  JE  EVENT  ON  PRIOR  RADIAL  IS  ASSOCIATED 
C 

IPP  IPTA  ( ..IE  i  B  > 

I F  (  I  PD .  I...E  .  <) )  GO  TO  261 
C 

C  PRIOR  RADIAL »  LOOP  ON  THRESH  -KB-  HIGHEST  TO  LOWEST 

C 

DO  29:1.  LB~.1»IPB 
KB-IPR --LB+1 
KBB:~ (KB- 1 ) #  JMAX 
NP1.-0 

IF( JE.GT.l )NP1=IPNT<KB> JE~1*B) 

NF'2~  I PNT  <  KB »  JE » B ) 

I E  <  NF'2 .  L.E  ♦  NP  1. )  GO  TO  291 
NPl-NF'l  H 

C 

C  LOOP  ON  JE  EVENT  SEGMENTS  ENCLOSED  BY  KB  CONTOUR 
C  COMPARE  WITH  KC  CONTOUR 

0 

DO  281  JPE*NP1 *  NP2 
JPEKB-JPE4KBB 

I F  <  I F*2  ( JPEKB » B  > .  LT  .1 HBM )  GO  TO  281 
I F  < IP 1 < JPEKB r  B  > . G T . I HD )  GO  TO  291 


C  LF'CEL  IS  CONTOUR  THRESHOLD  ON  B  RADIAL 


RABTA1 


11.0 


I  l  l  F  I  IE'2(TPE  KP»P> 

it  anil  i  f  .oxiri  in  'Hi 

I  i  II  Ilk  I  SI  1 .1  E  .  I  I  A  <  Ml  t  JF"  t  P  >  )  GO  I  O  JO? 

II  <  I  I  A  (  K fi ,  II  .  P  H  I  .  I  I  .  1  A  l  ie  1. 1  I  (  I  I  )  )  lit)  ID  28 1 


I  II  NIi  II  A  I.  1  EIE\F  BULK  Ii  I  I  I 

l 

.'M2  I  AIM  AMAXI  i  I  AIM.  TA  18(1  EOEl  )  ) 

If  I  IAIM.NI  I  AIR ( I  FT!  I  I >80  TO  281 
mi  k  1 1  in  i 
KPrl  I-  H 
JHM  •  II 

281  l  (INI  I  Ml II' 

">i  roMinmi 

•'.si  I'OMIlMlir 

i 

l  I  NH  ll  COMPARE  10UP 

i ' 

16M  IT  (ME  K  .TQ.OGO  TO  271 

II  (APSE  lAIR(MPK)  )  .  OT  .  1  THRESH +L.DB  >  MPK  =  -MPK 
GO  Id  421 

22  1  HO  194  1  1  HP i  IHP 

Tf  (IIP!  I  >  .EG. -999)80  10  194 
IT-  <  I  APS  (HP'.  I  I  i  .  If!  ,  I  I  HIM  SIT  >00  TO  194 
II  (MPK.  HI. 8 >80  TO  921 
II  (MPK. GT  .0)80  TO  266 
80  TO  2 A/. 7 
I  9 4  CONTINUE 


i 

p 

( 

p 

r 

r. 

r 

p 

i  - 


HAVE.  l<  COMPARE  WITHIN  RANGE 


PON  I  I  Ml  If 

If  (MPK  .10.0)80  TO  A 2.1 

MPK-0 . AMP . NPK“0  NO  COMPARE 
MPK=0. AMU. NPK. NT .0  -  NO  P  COMPARE 
NPK--0  .  ANP  .  MPK  .  NE  .  0  ~  P  COMPARE 
HIGHEST  THIS  RADIAL 

I  F  e  NPK  .  1. 1-  .  0  .  OR  .  MPK  .  GT  .  NMX  >  GO  TO  2662 


P 

P  NO  PRIOR  RADIAL  FOR  COMPARISON »  INCREMENT  NPCEI.. 

P 

NPCEI  -  NPK 

759  I NPX  - 1 A  I R ( NPCEI  >  T THRESH  1 

I  F  (  I  NPX  .  GT  .1  HP  <  OR  .  I  NPX  .  I  E  .  0  >  GOTO  266 

I  N  1  f  1 NTIX+L  M 

I  NX  -  IPX I  fNIiXKI  M 

NP IN 'NPCEI  I  (  fN  DKNIDP 

MPT N  •  N P C ELKIN  I  MM  1  >*NI DP 

IF <TATR(NPTN> .NE.O.  .OR.  NAONE >  GO  TO  2921 

Tf  ( I AIR ( MP I  N  >  . LE . 0 . ) GO  TO  266 

MPL  NPCEI 

NF'CT  l  "  I  ATR  (  MPIN  > 

I  F  (  MPC  .  EO  .  NPCEI... .  OR  .  NPCEI  .  GT  .  NMX  >  GO  TO  266 
GO  TO 25 9 

2991  Tf'2(  IPf  KC.C)  NPCtl 

I f  ( NAOMI  . AND .  I SCANT . f 0.1)  GO  TO  266 
TN2  NPCEI  +  TNKNIHf 
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1 1-  1 

1  A  1  R 

!  MO 

1  N3 

1  N  0 

t  M  1  HI 

1  04 

1  N  3 

F  N  i  n  I 

1  N5 

IN  4 

n  rut 

1  N6 

1  NO 

1  N  I  Dl 

1  0  ' 

1  N-‘- 

IN  1  Dl 

1  NO 

1  N 

f  N  1  Ul 

1  rj'v 

1  NO 

(  N  1  1 1 1 

Ml 

1  III; 

i  OP 

1  HD 

Ill)  HI  !  I  I  -  I  M 

I-  KANUI  t  I  '  >F  1  K  I  *  (  M  0A1  (  !  I  «  . '  .  ) 

RD  R*DAZ 

HU  l'D*ANO(l  I  DAI  illtlN  ) 

Nil.'  R*RE 

IAIN  I  Ml’  1  t  A  I  R  <  I  NO  >  I  Nil 
I  A  I  K  <  I  N3  '  MINI  I  N3  '■  I  Nl) 

I  A  I  K  I  I  N  4  >  I  A  I  N  I  I  N  4  '«  I  S  A ,’  *  N 1.1 2 
IAIN  I  INN)  I  A  IN  (  I  NIj  i  h;;a/*ru;> 

I I  I  o<  I  i  ,  I  II ,  '.>y V )  GO  in  -11:1 

l  A  1  K  I  1 N  6  )  ■-  1  AIN  (  I  N6  )  I  Nil*  TANS  I  V  <  I  >  ) 

1  A  IR  (  IN 7  >  1  A  IN  (  I  N 7  )  I  R V  (  I )  *RII 
I A  IN  <  INS  )  ■  r  A  IN  <  INI! )  IRS  (  I  )*RD 
TATR(  IN?)  ~'J  ATRI  JN9H Fen 
41.1  CONI  INI. IF 

4  I  9  N  l  X  :  NCI.  Kl  !  i  I  NX  I  1*N  II!P 

I  AI  R  I  N I X  )  ■■=!•>  I  ON  ( l  I.  OAT  (NA)  •  I  A  IR  (NIX)) 

I I  (  N  A  0  N  F  )  I A  I  R  (  N  I  X  .)  -  S I GN  (  I A  I R  ( N I X  )  .  1 , 0  > 

IF  <  1ST  ,  IF:  .  2 ,  ,  OR  .  I  SR  .  OF  .  I  MX  >  I  AIR  (  IN:* )  -999  . 

GO  TO  366 

3669.  NPCFF-  NRK 

3 6 6  1 1  <  N R 1 1! I  ,  GT  ,  NHX  .  OR  *  N R C F I... .  I.  I  .  0  )  G 0  I  0  V 3 1 

I  M I) X  •••  I  A  I  R  (  N F;' I.. F I  >  1 1  HR E S H  -  1 
G 

C  COMBINE  PRION  (l  PCEI.  .. )  WI  TH  CURRENT  <  NPCEE  )  EVENT  A1  THIS  LEVI 
(  COMBINE  BY  SETTING  AREA  AS  POINTER  AND  TUX  TO  NA  *■-  0 


I F  ( I... R E  ,11. 1.  Pt  .  OR .  K  .  G T  .  I  P 1  )  G 0  TO  ? 3  I 
DO  365  I.  I.RL  »I.PF 
LK~L IK UMAX 

I F  ( I P  2  ( I..K  >  C  )  » I  I  .  I  H  D  M  )  G  0  I  0  3 6  5 
I F  (  I R  I  ( 1.  K  »D,  G 1  .  IFF  D  >  G  0  1 0  9  3 1 
I  PC EL = I  F  '3  <  L  K  »  C  ) 

IE  (I.  PC  El.  .  I  E  .  0  .  OR  .  I...PCEL. . G I . NMX ) GO  TO  365 

LF'X  T.PC  F  l  ILMIIP 

IF  (  I  A  I R  <  l  P  XT  .  E  0 . 0  .  )  G 0  1 0  3  6 5 

IF  < NPCEl .EO.LPCEI  ) GO  TO  365 

INI.IX"=TAIN(I  PC  EL  )  I  THRESH- 1 

IF  (  INPX.GF  .1  DEO  GO  IT)  365 

IF  <  I NHX.  I  F  .0)  INDX-0 

ind=  i:hxi:indx*lm 

1  PND-I  PCEI..I  <  r  NT.i  -  :l  )*NT.IIP 

IF ( TAT  R ( I  PND ) . EO . 0 , ) GO  TO  3 6 5 

IND'-INUXIl 

IPG  0 

DO  3663  .J-  IND  *  LDB 

IN-  ( .1-1  )  *1  H  I  I 

I  PINT  P C E L!<  I  Nil  M  -1  )*N  I  It P 

I F  ( I  A  1 R ( I  P IN). EO . NA ) I PG~ 1 PGI 1 

DO  3663  I  1  -  I  M 


1 1. 2 


I  I  !  1N-I  I'CH  ♦  <  INH  1  )  *N  I  DF‘ 

IA1RM  PI  IN)  0. 

II  >  III.  I  0.0. Op .  IP  M  P  .  1  MiG  It)  3664 
[Ml  1665  I  I'll 

IP!  1  1 1 '  I  A  <  I  *  C  > 

II  <  IP  1  1  .  I  1  .(mill  III  3665 
HI)  5,66  PI  I  „  IF  II 
Ni  l  I  A 

IP  (  I  MM  .  I  i  NPTL  =  I PN I  (  K  I  .  I  ~  1  .  (' ) 

Ml  •(  1  -  T  P  N  I  (P  I  ,  I  v  C  > 

I  I  (NIT  r  .L  E  ,  NPTI  ) GO  i  n  3666 
NPl  I  NCI  I  P  I 
K  I  I  (l\  1  I  >*.JMAX 
DO  366/  I  I-  NPCI ...» NPCT 

I  I  N  I  I  PM  h  i  I 

If  (I  Pi'll  ,NE  .  IP3U  PM  MM  )  GO  TO  3667 
INHXI  I  AIR (NPCEl  )  I  I A  <  K T  •  1*0  -  I 

II  <  I  NH  XT  ,1  7.1  DP  )  GO  10  3668 
IP  1(1  PN  l  M  )  I  ,'TKO 

GO  10  366- 

I  I  •  I  MI IX  Mil  M  mono  TO  3669 
I  1-3(1  PN  I  *  0  i  -NPCP  I . 
i  ONI  I  Nl IP 
OMNI  I  Nil  I 
(  ON  P  I  Nl  IP 
I  PG  -o 

LI  (  IMP  X  Mil:  M.  It  P  MiG  PO  365 
I  Af: 7  (I  p(  PI  •  NPCEl 

I  P  I  X  I  PCPI  •m.  +  INDX#L.M>*NIDP 
IAIRM  pi  xi-  npce:i 

II  (  INDX.NP  .  0 )  GO  TO  365 

i  Arm  f-rpiM  ::  nidp  i 

(ONMNI.IP 
GO  10  931 

combine:  npcel  and  lpcel»  peak  galops  equal 


COMBINE  WITH  B  RADIAL  CELLS 

II  <  MP  N  .  I  E  .  0  >  GO  70  422 
IP  ( NPh  .1  I  M)MiO  TO  3662 
NGM  :  0 
I  PCPI  =  MPN. 

I  I  •  X  t  POP  I.  PI  MI  IP 

I  P  <  APS  (  TATR  ( I...P X  >  )  .  EQ  .  NA  .  AND  .  NPK  .  EQ  .  0  ,  AND . I T  A  < KC • IE  >  C  > .  GT 
*  17  A  (  KBM  t  .IBM  iB  D GO  TO  485 
T  N  D  X  -  T  A  I  R  <  I  P  C  E I  )  - 1 1  PI  R  E  S  PI  I 
IMBX  INBX 

I F  (  NPK  .  0  7 , 0  7 IMDX  -TATR  (  NPK  )  •- 1  THRESH  1 

IE<  TMDX.I  E.  INPXMiO  TO  421.2 

NOM-1 

NPCEL -NPK 

IND--INDX 

INBX: IMDX 

I  MBX  MI  ND 

GO  7  0  421.3 

IP ( I NDX .  I  T . 0 ) GO  TO  481 
NPCP  I  I  PCP  I 


,  NF  WITH  H  RAH  l  At  »  C  l  EOF  I  I  OWI.k 

i  i  1 1  •  i mii x .i>i  .1  moon  to  4??i 
;  M  1  h 

M  .  Ml  I  Nil  1:  I  m  I  Nil  M)*NTDP 

Ml  I  fl  NCI  I  I  it.  i  n  I  1  >*N  I  HI  ' 

ii  •  i roc  .•ci  x  . .  ni  ,o.  >00  in  53 I  i 

I  ■  i  1 1  C  ■  NP  I  N  >  I  I  .  0  .  .  AND .  NOM  .  FO  .  0  >  00  10  42?  t 

it  omn.Ni  ,  i  >oo  ro  031? 

I  !-i  1  MHV. n't  H 

I:  (  I'M.  I  I  .  O  >  tit  I  10  Ml  I 

If  f|  CCI  I  .1  I  .n.Ok.l  .PC  EL  .01  .  NMX  >  00  10  42? 

I.  P  I  X  I  CCI  I  I  1  I  Mil  M  i  4NTDP 

I  Cl  Ml  Cfl  I  1  i  I  HU  OKN  me 

II  I  1  A  T  K  <  I  CIX>  .  NF  .0.  >00  It)  5311. 

I  f  <  I  A  I  R  I  C  I  H  >  ,  < :  I  .  0  .  >  00  1  0  53 .1. 3 

I  CCI:  I  NCI  r  I 

on  in  4x? i 

3L3  I..  cell  I  Altai  I '  I  H  > 

I  Fit  COM  .  CO  .  NPCC  I  .  OR  .  I  PCFI.  .  GT  .  NMX  >  00  TO  4 2 2  I 

I  H (i X  •■■■•  I  A  I  k  <1  CCI.  I  >  I  I  Cl K I.  0 H  •  1. 

00  III  5314 

31?  NPCFL  1  ATC(  MC  I  N> 

I I  <  N C l.  1: 1.1  E  .  0 . 0 R  .  N C C EL. .  GT  .  NMX  >  0 0  TO  42 2 1 
I N  Ii  X T  A  I R  <  NF C t" L  >  I  T H R E S H  ••••  1 

00  TO  42.13 

531  .1  I  C  3  (  I  PF.KC  .  C  1  -NPCC  I 

NPIN-NPCEL+ < IN+l )*NIDP 

IF (TATRCNPIN) .FO.  999. >00  TO  0012 

IMC-NCININinC 

I  N 4” 1  M3 1  Ml  DC 

1  N5  -  IN4  CM  nip 

IN6=IN5+NIDP 

IN7~IN6+NI»P 

IN8--  IN7+NIDP 

IN  9::::  I  NOT  NI  DP 

IST=IHB 

ISP™  I  HI> 

DO  531  I ::::IST  !« ISP 
R ~ R  A N  PL  Y  f  S E  I R 1  *  <  E  L  0  A  T  <  I  1.  >  - .  5  > 

RD--Fi*DAZ 

RU::RD*ARS  ( FLO  AC  <0(1  >  >  > 

RU2=R#RtJ 

T  A  1  R  (  N  P  .1  N  >  ■"  T  A  T  R  (  N  P I N )  T  R  D 

I  AIR  (  I  M3  >  "TATR  < I N3  )  +RU 

TATR  < IN4 ) “TATR < IN4 ) t SAZ*RU2 

T  A T R  <  I.  N 5  >  "■  T  A T R  (  I  N 5  )  T C  A Z *R(J2 

I F  (  0  <  I  )  .  E  0  •  -  9 9  9  >  0  0  r 0  531 

TAT R  ( 1 N 6  )  =; T ATR(  INA)  C RD>K1AE<S<0<  I  >  > 

TATR < I N 7 > =  TATR < IN 7 >  CRN < I > *RD 
TATR  <  I  NO  > “ TAT R  < I N 8 ) T R S  < I ) * R D 
I  A I  R  ( I N9  >  =  TAT R  <  I N9  >  C R D 
531  CONTINUE 

8  0 1 2  N  P I X  ~  N  F'  C  F  L  C  <  I N  T  L  M  >  *  N I D  P 

T  A T R  <  N P  J  X  > ~ SI  ON  <  FLOAT  <  NA ) » T  ATR  <  N P I X  >  > 

I F  <  NAONE >  TAT R  <  NP I X  >  =S I GN  <  TATR  <  NP I X )  > - 1,0) 

IF  <  1ST  .  I  E  .  2 .  OR .  ISP .  OF  .  IMX  >  TA TR<  NPIN >  ---999 . 

L.F'CFC  -NPCFL 
00  TO  4221 


COMB  INI"  WITH  B  RADIAL  *  C- LEVEL  HIGHER 


i  ii  i  i r ’ i i  combine:.  akea=o*  if  second  or  higher*  area 

i  II  ol  ARE  A  III  ESI  ADI  ISH  NEW  NUMBERS 

i 

•If:  I  MD'*  END  X 
I  flR  MOMR  I 
I  MEM  ■  I  DU 

I  N:  • 

II  I.  0 

I  AIR (I  lit  I  >~  I  THRESH f 1 
I  I'MR  I  ETE  I  1 I  DKNR 

I  A I  R  i  I  I  Ml ' )  ADS  (  A  rR  <  TATA  )  ) 

If  <  ENDX. OK  .1  DP )  00  TO  482 
IMPS  1 1 D  ENDX 

DO  !032  I  ENDX*  E.  DBM 

i  rxM  i  m  i  » ( 1 1 1.  >*i  mop 

II  <  EAIREI  PXM)  .1  U.NA  >  ERG- I  ROE  1 
48'..*  MINI  !  NOE 

DO  40 X  I  I* END 
DO  4 OX  .1  I  .1  M 

10  I  E  If  <1  DD  ll»IM 
I  M  -  II.  Jl  (  I  NET  l  >*E  M 

I  R  I  N  I  PCI:  I  KIN-1  >*NI.DP 
I  R  I  M  RPC  Ei  I  1  f  EM  1)»NUiR 
40/.  I  A  I  R  ( I  FIN)  -  I  A  I  R  <  I.  R I  M  > 

END  INDX#I  Mil 
IN  DR  ■■  ENDX 

402  DO  4830  1  =  1.  *  I...DB 

I  RXh  I  PR  FT.  1 I*LMDP 

I F C ABO ( TAT R  a. RXM) ) . E  0 . N A ) I R G = I P G K 1 
40/*,  CONTINUE 

DO  484  I  INS, END 
I  R I  I  RRf  I  K  E  1 >*N1 DP 
484  EAJRO.RT  >*0. 

DO  4841  E-lyfNDP 
I  RXM  0  RRf  I  <  I  #1..  MDP 
484  I  E  ATRU  RXM  >  =NA 

11(1  RP  .  I-  0 . 0  .  OR  .  T  E  .  I  E  .  1  )  GO  TO  488 
DO  483  1  .1  -  .1  *1  E 

ERIE  IRE  Ad  *C> 

I E  (  ERI  E  .I  E  .0)  GO  TO  4831 
DO  4833  M =1.1 PTE 
NE  T  I  -0 

1 1  (  1 , 0  1.1)  NPCl  -■  I PNT  (M  *  I  - 1  *  C  ) 

NPCT  TPNT(KT.l.C) 

I  r  (  NE  T  E  .  I  f :  .  NET  I  )  GO  I  0  4833 

NPCl  .•-NPCl  11 

KI  I  (KE  I  )*.)MAX 

DO  4834  I  P  NPE  I  .NPCl 

I  PM  I  P  IK  I  I 

t  E  ( I  PCF  I  .  NF  .  T P 3  ( I  PK  (•(.))  GO  10  4834 
I NOXT =T A I R ( I  PCf T  )  E IA«  KT. 1 *C)  1 
ERdNDXr.l  I.  into  GO  EO  4834 
IP.UI  PM.O  f.'FRO 
4834  CONI  INIIE 
4833  CONE  ENOI 
4831  CONTE  NOE 
I  E't.  0 
480  IN/) 
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1 1  a  i  r r  i  ,  i  i  .o.or.i  fm: e l . g t . n m x ) g o  r n  9 3 i 

I  PR.-:  I  PCFT  I  I  MUR 
r  A  1 1 ■■  ( I  PRO  -  NA 
IP.M  lit  KC.n  I  IT  I  I 
III"  I  I  I  I  I  I  I 
NGH  0 
mi  in  id  ■ 
ini  iS6  I  i  .in  nr 

II  (  I  API  <  1  >  .1(1  .OHIO  TO  48/ 

4 I  (Id  I  I  NI II 

NO  I  III  • )  r  SI  (IT  .  I RWRT  1  E  I  AST  SLOT 

II  (PR OVER)  UR  l  (I  (  7,644) 

I  N  I  HP 
18/  I  PH  l  -  l 
I  AP  I  (  I  )  -  1 

NMX - MAXO ! NMX  .  I  LI ) 
t  P ( NMX , G ( . N I  HP > NMX  N I  DP 
I  AIR  (I  PC  El  )  •  l  I  HRI.  SHU 
I  POP  I  •CULM.  HXNP 
I  A  T  R  ( I  P  M  P  )  =  A  H  S  t  A  T  R  ( I A  T  A  >  ) 

GO  (0  488 


I  ESI  I  IT 'El  AND  ESTABLISH  ADDRESS  FOR  AREA  POINTER  AND  NA 


I  1 1  <  I  P CE  L  .  GT  .  NMX  .  OR  .  I  PC  FT.  .  LE  .  0 )  GO  TO  3662 
THRESH  LEVEL 

I  M  D  X  I A  I  R  (I  PC  E 1.  )  1 1  H  R  E  S  H  1 
IF( IMDX.LT .0)00  TO  632 
I  D  •  1 TIMRXfcLM 
LDL  M--LD+LM 

I F  <  I  DI  M  .  LE  .  0  .  OR  .  1.  DI  M  .  GT  .  NUMAX  )  GO  TO  632 
LPLD=LPCEL+LD*NIDP 
L  D  N  P = I ...  P  C  El  HL  D  L  M  I  )  *  N I D  P 
l  PCELI.  :;  TATR<I.  Pl.D  ) 

IP  <L  PC,  EL  I  .01  .NMX)  GO  TO  632 

FLUSH  NPCEL  SET 


DO  44.1  JE= JEI » ,JE2 
JEA-( JE--1 )*NPA 

IF"  ( IB(  2+ JEA )  .IT.  I  HUM)  GO  TO  441 
IF- UBd+JEA)  .GT.  I  HD)  GO  TO  632 
IPB=IPTA(.JE»B> 

IE<  IPB.LE.OGO  TO  441 
DO  471  LB~1*IPD 
KB*IPB--LB+1. 

KBB  "(KB  1  )*,IMAX 
MPB--  TF'NT  <  KB »  JE  >  B ) 

MFT..-0 

I F  (  J E  .  G T  .DM P L  ~  I PN T ( K  B ,  J E  ■- 1  ,  B ) 

I F  <  MPB .  LE  .  MF’L )  GO  TO  471 
MPL=hPL.  +  l 

DO  461  .IPE.  "MPT  *  MF’B 
JPEKB  JPETKBB 

fF(IF>7(  JPEKJMB)  .LT.IHBM)  GO  TO  461 
TP ( IP1 (JPEKB. B) .GT.IHD)  GO  TO  471 
NPCEL- IP3(..IPEKB»B> 
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m 


I  F  Nf 'l  l  I  .  L  I  .  0  OR  .  NPGF  I  ,  G T  .  NHX  )  GO  TO  46 1 

II  (I  IT!  I  .  PO .  NPGF.  i .  >  GO  10  461 

I  I  (  I  16(1  P » .  II  »  P  )  .  Nl  ,  I  I  A  <  KG  «  I P  * C  )  )  GO  TO  461 

I  I  IMP  I  Nl  At  I  H  IT  I  I  VI::. I 

■V  I  Mil  I  A  I  !■'  (  Ml '(‘I  I  1  •  I  I  HR  I  SI  I  1 

I I  •  I  MIi  v.  (  i|  ,  I  MU  iOO  I  0  461 
II  (  I  NM/  I  I  ,  i.)  )  GO  III  8511 
If  •  I  MIIX.  I  I  .1  PH  1(31)  10  861 

M  Nil  ;  i  I  M|IX*I  M 
Mill  fill  | 

MO  I  1  ,1  M 

NINP  Ni  l  I  I  I  (NM1  I  r  1*NIDP 

1  A I  R  <  NRNP  >  -=0  . 

ri  '■<  ifi  i.n.p)  i /pro 

lid  III  4-.  i 

8M  1  It'll  111  Ml.  It)  I  2  PRO 
po  8M;>  ,1  2  i  Ml  IMP 
fJI  P  NPGt.l  t  (  .11  >*N  I  HP 
151  2  lAIRlNP.H  o. 

I  AG  I  (  NPGPI.  )  (Ml  Ill'll  > 

GO  Id  461 

861  MH  1  1  I  NPX*I  M 

II  ■  NI'GFI  .11.0  .OR.  NPGPI  .GT.MHX)  GO  TO  8612 
NIM  H-NPH  M 

ip <  i npi.  m  ) . it:: . o  .or.  <npf..m>  .gt.numaxi  go  to  8612 

GO  10  8611 

8612  UR  I  TP  (  6  »  B  2  10)1.  P  C  P  I.  .  M  P  C  P  L.  >  I.  P  *  L  M » NP  » NA »  JPP  »  KB  *  I P  P  *  K  C 
8 MO  HJRMAmor  10) 

GO  10  461 

86 1  1.  MMNP “NPGPI  t  (  NPI  M  1  )  *N  I  IIP 

1 1  (  TAIR  ( I  MNP  )  .  NP  .  0.  .  ANI) .  I  AIR  ( NPNP  )  .  NP  .  0  .  )  GO  10  89 1 1 

I  F:  <  I  A  T  R  < I  IiNP  1.10.0.  .A  N  P  .  I...  P  G  P I  I.  .1  P.O)  G 0  1  0  8 5 1 

II  (  T  A  I  R  (I  IINP  1  .  G  1.0.  100  I  0  8  9 1 2 
I  PI 'PI.  0  PGP  I  I 

GO  10  4221 

8  M  2  M  P  N  P  -  N  P  G  F  I  I  N  I)  *  N  I II P 

IP  (  lATRINPNPI  .1,0.0.  .ANP.  IATR  <  NPNP )  ,11.0,  >G0  TO  8913 
NPGt  I  IATR (NPNP) 

I  f  <  NP’GP  I  .  I  P  .  0  .  OR  .  NPGPI  ,  01  .  NMX  .  OR  .  NPGPI  .  PO  .  I..PG Pl.  )  GO  TO  46 1 
I  PM  JPFKR.PI-NPGPL 
GO  TO  502 
891.3  l  PI  I  P  I 

PO  89  14  I  - 1 «  LM 
I  PI  P  I  I  PCPI.  f  (I  P  I  .  I  I  >*NIPP 
914  IATR  (I  PPPt  1=0. 

IP  3(  IPt  KK.P  )  -I  /PRO 
GO  10  4221 
8911  I PNPRY-O 

I  PI  P  I  PGP  I  I  I  PKNTPP 
NPNP  NPGPI  I  NIPPN  IPP 

I F  (  I  A TR ( I  PI  P )  . PO .  999 .  . OR . I  AIR ( NPNP 1 , PO . -999 . ) 

V  I  UN PRY-1 
PO  891  I  I  ,1  MM 

i  in  \  pen  i  (i  pi  r  i  iknidp 

NPI  NPI  I  I  I  (NPI  I  1  >  *NT  Pi¬ 
ll  •.  I  MNP  IVY  .  I  0 . 0  i  1  A  I  R  <  I  PI  )  '•  T  A  PR  (  NPI  1  I  1  AIR  ( l  PI  ) 

IAIFMNPI  1  11, 

19  1  I  UNI  INI  IF 


46  I 
4  ’  I 
4 '?  I 

6  V' 


II'!  HNHP  r  ,  '  .  I  >  ]  A  I  R  (I  fl  Ii )  -  999  . 

N  UNI '  nil. I  II!  MU  II.  M  I  )*NI»I' 

I  A  I  K  <  NUNI  ■  1  O  . 

I  AH'  t  Ml 'll  H  )  I  PCE  I 
i  A I  I  (  Nil  I  I  '■  I  I'll  I. 

IP  •.  (  IP!  KH,I<  i  I  I'll  I 

I  I  IN  11  Nl  It 
Cl  IN  I  I  Mi  ll 
i  UN  I  I  Nil  I 

II  -IMI'K.I  .  E  .0)110  10  TAA2 
NE'CE  I  I  I  f. E  l 

00  in  .16 A 


i:  IINASSOC  TATEIi 

i ; 

AVI  II  (NAOMI  .AMU.  I  SO  AMI  .Ml  .0)  GO  TO  ATO 
HO  A 4 7  .1  1  .Ml  HP 

if <  i  AO  r  < .1  > . i  a . o ) an  to  a4.< 

A 42  CONTINUE 


C  NO  EMPTY  Cl  Ul*  OVERWRITE  EAST  SLOT 

C 

I  F  ( PR  DUE.  R )  UR  I  I P  (  7  -  A  4  4  ) 

ATT  I ORMAI (SX* '  TOO  MANY  CELLS') 

INI  HI  ■ 

00  TO  AT. 5 

C 

a  to  nci  i  r  ni e i  r+t 

IP.Tf  I  PE  KC  *  C  )  "NCE'I.  T 
GO  TO  9. VI 
643  NPCIT  =.I 

I  AC  I  ( .1 >  t 
NMX -MAX 0  <  NMX  *  ,.H  1  ) 
l F  (  NMX  .  GT  .  NT  DP )  NMX -NX HP 
IP3( TPEKC*C) “NPCEL 
HO  A 71  T~1 .MUMP 
NP I  “NPCEL  K  I  .1  )*N  IHP 
TATR ( NPT >-0.0 
67 1  CONTINUE 

S  91.  T  A  T  R  (  N  P  C  E  L  )  -  I  T  H  R  E  SHU 
NPMP=NPCET..+LDXNP 
TATR  (  NPMP  )  “AE<S  (  ATR  <  TATA  )  ) 

I ST- I HR 
ISP- I HR 

NP2-NPCELINT.HP 

NP3  -NP2 I  N  I  HP 

NP4-NP3+NTHP 

NPS-NP4+NTHP 

NPA--NP5TN  l  HP 

NP7-N P6+NIRP 

NPB-NP7ENTHP 

NP9-NPHENIDP 

DO  62 1  I -I ST. ISP 

R-RANDl Y+SETRI *  <  FLOAT < I- 1 ) - . 5 ) 

RH-RJKHA2 

RLI=RR# AR5  ( FLOAT  <0(1 )  >  ) 

RU2«R*RU 

TATR  (  NP2 ) -R H  E TATR ( NP2 ) 

TATR  <  NPT ) =  RUf TATR ( NPT > 

TATR  (  NP4  )  -  SAZ*RU2+ TATR  (  NP4  ) 
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I  A  I  R  (  N f  5 )  1  A  T  R  (  N  F ' 5  )  1  C  A  Z  #  RU 2 

1 F  •  V  (  I  )  .  F  IF  .  99V  )  lit)  1  0  62 1 

r  AT  f  ■:  r  N  p  A  >  r  A  F  R  (  N  P  A  )  f  R  IF*1A  B  S  (  V  (I  )  > 

I  A  I  lv  (  NP  /  )  FAIR  <  NP  7  )  F  RY  (  I  )  *RIF 
(AIR  »'  NPR )  .  T  APR  <  NPO  ■  f  RS  <  I )  *RO 
1  A  IR  <NP9t  -  r  At  RCNPV)  F  RIF 
*>.’l  i  MM  I  I  Nl'l 

NP  IlFX  -NPCEL.  II.MIFP 
(A  F  R  <  NP  I  IPX  )  -  A)  A 

F  F  (  N  AI  FNl  >  I  A  T  R  ( NP  I  IF  X  )  ==  T  A  T  R  ( NP  I  IF  X  ) 
IF  (  TST.F  E.2.0R.  IBP. EH.  IMX ) TATR < NP2 > 

F  NH  I  PE  CCFN  F  OUR  SEGMENT  L  OOP 

•v  •;  |  PONT  INGE 

I NH  KC  THRESHOLD  LOOP 


'Ml  CONTINUE 

I  NIF  I  F  EVENT  ABSOP  t  AT  L ON  LOOP 
951.  PON  I  I  NOE 


llq.  1 
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I  I  I  AN  III  I  A  II-  ANli  l(  ARRAYS 

II  M  IAIN  '  I  i  -  ME  N  T  *  /I  RO  ARRAYS  (II  (OMflNEH  OR  CUi  111  HE  CiMI  NT 
I  OOF  AM  I  Mi  ll  I'OHIOOR  I  I  VI  I 

IK)  "SI  "I  I  -  MM" 

IE.  IAI  f  -  I  -  .  Ml .  0  ..OP  .  I  A  I R  <  I  >  .  I  r  .  o .  >  OO  W  9f,  |  2 
ii  u ai  tin. si:  .o jnn  in  va i  i 

Mini-  AN  MIRRINI  RAH  IAI  1  VI  MIS  TL 


HI)  VM  S  It  1  ,  I FM 

I  P  I  -  :  I  I  I  A  (  I  I  .(•  :• 

II  <  t  F  ’ 1  It  ,  A  )(.i()  TO  9  A  I  .*> 

Limp  ON  IHRISHDiriS  UN  1 1  I  91  N I 

IK)  9 A 1  B  I  I  I  .  Il  l 
NET’"  1 1 'N'T  <  K(  »  tf  ,C> 

Nl 'I.  ”0 

I F  UF.Iil.l  )  Nf’l.  I  PN  T  (  KC  ,  l  E:  1  *  C  > 

II  (  NI  K.:  .11:  .  Ni  l.  i  HO  TO  9618 
HIT  -NIT  ft 

MATCH  IE  SEGMENT  WITH  LEVEL  HE  I  NO  TESTE  Ii 


KCC  :  (KC  I  )  HUM  AX 
IK)  9619  IRE  NET  *  NF'C 
TPf  KC  l PE + KCC 

El  <  [  .NP  .  IE\T<  IPEKE  nC)  )G0  TO  VA19 

If  (  I  ACT  <  I  )  .1  T  .  -NT  DP)  GO  TO  9  A 14 

E  N n X  •  T  A  I  R  (  I  )  1  T  A  (  KC  *  I E  ,  C  )  - 1 

TE  CENDX.GE.I  LiB.  OR.  INDX.LT.O)  GO  TO  9A19 

J  XdX  lf(  I  Nnx+1  )  #1.  MDP 

I  I  <  TA  t  R  (  IX  IT  X  )  ,  NE  ,0.  )  0  0  l  0  9  A 1  9 
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I  (I  Ml  !<-.(}  ''■<  :  M  >  *N  I  nr 

',1  i  I  I  .  ’  I C  •  ill’  ft  '  .  fit  .  T  Al  I  (  I  i  )  (if  t  II!  9614 

i  i  pi  ki  .!  •  i  ap.i  ( 1 1 
on  in  9  6 i '> 

9,6  I  I  II  I  i  •  i  l - .  .  I ;  »  1  ,'|  RO 

■’.-.I  ri.-m  i  N>ii 

continui 

9 , ,  I  .  I  Ilf  II  I  Mill 

I  I  >  I  <v:  Iff),  III  N  I  Ml'  Mill  I  n  .  I  ' 

I  A  l  I  I  >  0 

1  1  IV  <  I  >  O 

Mil  111 

■■■• ,  I  '  Mil  95  I  ,1  I  »l  III: 

1  II  h  II-  II  '.  i  I  >*i  tl  >*NIRI 

I  XI  M  I!  f  1*1  MIH  ' 

I I  <  I  A  I  Is- t; .  II  M  >  ,  I  l) ,  I  AC  1(1).  AND .  I  A  I  R  (  .1  XI.  M  )  .  I  ll ,  o  .  i 
I  GO  III  9514 

•'Ml  X  (MINI  I  Ml  If 

I'D  In  9611 
■-'MU  I  A  I  K  (  I  II  M)  -0. 

■mi  i  ini  9, vi  ?  k  = ? v i  on 
i  /•;  -o 

I  IX  M  l  IK*I  MDP 

[  I  XI.  I  I.  X M  I.  MUR 

II  ri  1  I  XI  IN  I  Of 

r i  <  r a i ix ( 1 1 xm > . ne: . o . , and .  tat k ( 1 1.  m > . i  o.o.  >  i i 
if  (it  ixuatri  :i:ixm>  >  .le.  <nax  i  >  .and.tatri  i  ixm)  .ot.o. 

I  .  AND  .  r  r  I  X  <  TA  IK-  (  I  I  XL  >  )  .  EO .  NAX  >  T /S  I 
If  (IZE.NL.l)  GO  TO  9612 
1 1  n  '->  o  o  v  r  K  K  =•  1 1.  M  *  I  I  XM.  N 1  D  P 
I A  I  P  *  IKK  ,)  0. 

9509  CONTINUE 
9  6  1  CON  I  INI.IL 
I 

II  (  II  I  AO.NE  ,  !>  GO  TO  4568 
DO  4567  I  I  •  Nl IMP 
OOIII  i  P>  I  AIR  (  f  I  <  .J  1  >*NTDP> 

If  <  ARSMIOUT  UM  .01  .999999999.  )  GOUT  (  J  )  “GOUT  (  J  )  / 1 000  . 
456/  CONTINUI 

UP  I  II  ( 6.990)  I t T ACT ( T ) . ( GOUT <  J ) r J»1 1 NUMP ) 

f; 

4560  I  Al  i  ■  I  )  I 

9M?  (MINI  INI  If 

It  <  NAON I :  .AND,  I  SCANT  .  I  IT  .  0  )  0  0  TO  10  3  0 
It  <  NAONf  .AND.  ISCANE  .CO.  1  )  GO  TO  959 
GO  III  95? 

C 

G  I  HMD  I  MI  I  AS1  RADIAL  I  N  SCAN  TO  FIRST  RADIAL  I  N  SCAN 

I  • 

959  DO  9590  It  -  I  «  I f  M 
TP  T-  If  I  A(  If  .  C  ) 

rrupi.u.o)  on  to  9590 

DO  9591  I  (V  I.  Iff 

ki  rpr  1  m 
KIT  (If  D*  IMAX 
NPI  IF'NI  ■  Kl'y  If  .(  ) 

NR  I  '  0 

If  (  I  f  .  n  I  .  I  )  NPI  ~  IPN  I  ( KC  »  IE-  1  *  C  ) 

NR  I  NPI  II 

DO  959  1  T  PE '-NPI  .NPC 


1  ?() 


IPIM  IPMMT 

ni  i  i  i  I p.k  li  t  m: . r ) 

I  I  •  I  A  1  R  (  NPCI  I  1 1  MOP  )  .  01  .  0 .  >  GO  TO  9591 

II  •;  NPCEl  t !  t : .  0)  GO  TO  9591 
I  POET  IP  M  TPEKC.EO 

IT  .  I  Mil  .  I  I  .  0 1  GO  TO  9591 

I  I'll  IX  MAI  k  ( I  POET  ■)  |  A  tic  (  NPCE  l  ) 

I I  <  I  Mil/  ,11.  0  )  GO  ro  950 

I ' 

0  IT  A k  I  PIT  l  .01  .  PEAK  NPCEl 
0 

II  (  I  MUX  .01.  LHEO  GO  ID  955 

I  NO  I  HU  I  N OX 

Tin  959?  11  »  (ND 

IM  I  II  MI  C  I  NH  I  1*1  M 

NPITT  MITT  PH  I  M  1  OKNIUP 

l  P  (  IATR  (  NP  I M  T  .  GE:  .  0 .  )  GO  TO  9592 

IN  1  II  MKL.nH-1  >  *L  M 

I  PIN  11(11  I  i,  I  N  I  )*NII'iP 

TAIRil PIN-  NAX  1 

NP  I  NM  NI  T?  I  T  t  I  I  <  I  Nil  T  )  #LM  )  *NII1P 

I  PI.. DM- 1  PCR  f  <  I  I  <  I  ITU  •  I  )*l  M  >  *niop 

IT  (  lATR(NPINM)  .EO. -999.  )  IATR  (I  PI  UM>  - -  999. 

IT  (  T  ATR  ( 1  PL  .DM )  .  PO  .  999  .  )  GO  I  0  9592 
DO  959?  ,P- 1  ,1  Nh 

I  N  t  T.)  I  (  LOO  T  )  #I.M 

I'M  -  I  f.H  (  I  NO  -I  >*l  M  | 

I...P  1  N-  LE'CPI K  IN-l  )*NIDP 
NP  IM  NPCEL.  KIM -1  >*NIITP 
7592  I  ATR  <  I  P  I  N  )  =TATR  (  NP  I'M  >  ETA  TR  <  LP  IN  ) 

9592  CONTINUE 

969  T  00  9694  I  --1  y  NOME' 

NP I = NPCEL H 1-1 >*NIOP 
9694  I ATR ( NPI ) -0 . 

I ACT ( NPCEl  ) ~0 
GO  10  9591 

955  IPL  OX  T  PCF'T.  f  <  LUX  1 )  *NIOP 
I A  T  R  <  l.  P  L.  D  X  I  -  NAX  1 
GO  TO  9591 
950  I  NlJX  -  I  NOX 

I I  (  I N  0  y  .  G  E  .  I  IT  0  )  G  0  l  0  9 5 9 1 
C 

C  PEAK  NPCEl  .GT.  I  PC  El. 

C 

INH=I  00  I NOX 
00  9691  I =1.1 NO 
in-  i  fLMKi.no  :i:  )*t.M 
NP  I N  NPCEL  f < IN  1 >*NIOP 
II  ( LAIR ( NPI NT . GE . 0 . > GO  TO  9691 
I  ATR (NP IN)  NAX  1 

I  P  INO-  LPCEl  I  (If  ( INO  J  >*l.  M>*NIOP 
NPLOO--NPCEI  f  (  I  f  ( I  00  T.  >  *!  M  )  * NTOP 
IE  <  r  ATR  (  L  P  INO  )  .EO.  999.  )  T  A  T  R  ( NET...  DO  )  =  -  999. 

TE(  lATR(NPl  ITB)  .E0.--999.  TOO  TO  8019 
00  9692  P  I  .1  MM 
IN  T  *11(1  00  I )  *  L  M 
TM-1  ITT  <  I  NO  I  )  *1  M 
NF  IN  NPCEl  KIN  1 )*NIOP 
I  P  IMT  PIT  I  HIM  1.  )*NIOP 
969?  I  AIR ( NP IN)  l AIR (I  P I M ) IT AIR ( NPIN ) 


.(J 
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!>>.(  ' 


(■>'  ,  i 


1 1 w  !  'i  i : : 

i  i  ■  i’i  l-.t  •  ■  ■i  l  l  I 

IAImNPCF  I  il  ;iy,j  p -  lAIKil  I'd  I  tl  BXNI  •  > 
NPfTI  I.  l-l  |  I 
1 ,11  III  -■> 

CUNT  I  Ml  It. 
i  ilf)  I  I  Mill 


i  I  Nil  (1!  ;  I  I  Ail  III'  AN!  i  trill  AROUND  A'Vltm  I  At  IIUJ 

'■  Ill  I  V  .1  I  I  y  MMX 

ini-  :  in  ii  t-  n  i  Hi¬ 
ll  v  I  I.,  1(1  >  .  I  H  O  Mill  VO  9 9 1 
ii  .  1 1, 1 1,  <  1 1  rix  '.to  ..  o.  M,n  to  v<-'  i  ? 

I  I  •;  ADD  (  I  A  ltd  I  I  II X  )  )  .  f  It,  MAX  I  Mill  1(1  973 
1.11  HI  9V  I 

(  lit  l  I-  HAl'KF>TH INC  COM  I  NO  DOWN 

’  I  I  NfK  0 

I  tt  t-h  I 

Mil  V/1A  ,1  I.IOHM 
1 .11  M  I  +  (  I  »  (  I  1  )*l  HDKN  IJiP 
I.  II  M  V  I  .11  MINI  HP 

II  (  IATKU,ll.M>  .1  E-TO.  .OR.TATRU  Jl  M3i  T.'O.O.  >00  10  Vv;>m 

>  I,1,  CONI  Hlllt 

It  MM  MAXOC  I  v  ..If  h  > 
nil  9/1.1  ,11  y  .ll  MM 

NPA.I  .UNI -A  I 

I  Hip  I  IHNPA.n 
I  A  I A  I  l.)m.l  At 
KNIMH" 0 

I  Mint  Aim  (  AIR  C  .1  A  I  A  )  1 

"not  It-  (KNinr.lt  .0.  OR.  KNn.il  .GT.KNIi:i(KI..OI>  )  GO  TO  9300 
N N  t  H H  KNT  0 A  (  K I  0 1  •  KN  I  D  I  ) 

II  (KM  I  riT.ro.  KNT  Ii  FO  00  TO  9300 

kn Tin  -km mu 

00  TO  9801 
■-'300  TNI )MP  =  I  -H.PXNP 
KN  t  MY  “0 

KNItiX  AH!'.'.  IATR <  TNIIMP  )  '» 

°ilo  (  (T  < KNT  HX  .  IT  .  0  .  OR .  KNiDX  .  GT  .  KNTI.H  KLOL  )  )  GO  TO  9802 
K  N  10  Y  •  K  N  I  Ii  A  i  K I  0 1  y  KN  I  H  X  ) 

It-  (KNT  It  X  .  1 1 0  .  K  N  r  Tl  Y  1  00  I  0  9  8 0  2 
KN  I  I'l X = K N  I  Ii Y 
00  TO  9803 

9809  I  F:  <  KN  [DR  .  NEC. .  KNT  IVY  )  00  TO  971.1 
f  PH  T  PTA  ( .1 «  3  1 
IK)  9.717  K  1  »  I  PH 
TTHKF8H  -  I  I  A ( K  * .  I »  H ) 

IT  <  <  T  A  IK  <  T  )  --  T THRESH)  .  NP  .  L  .IIP)  00  TO  9/17 

NP==  I  PNT(  KMJ.TO 
Ml  0 

IF  (  l.  0  T  ,  1  )  N I  I P  N I  (  K  .  I  I  v  B  ) 

Ml  Nl  F  1 

K  IMAX  (I.  1  )*  IMAX 
DO  97  I  T  N  Nl  r  NP 
NK  N  +  K.IMAX 


1  27 


M  U('T  (IN  I  F  AK  IHRFSHni.il 

I  1 1  RM 

II  I  .  Nl  .  II  MNR.IO  )nn  TO  9713 
I  N IH  ‘  I  MUR  (  1 

i si  i h i  * nf  « n ' 

I  SO  1  1  S'  (  NR  « R )  {  I 

no  v  -  is  i  -  i s  i , iso 

II  01(1  Sfll,  999)00  rn  971  s 

1 1  *.  I  OHS'  IKI  1  )  .01  .  I  THRESH )  00  TO  9982 

'■’  is  f  on?  ini ii 

’  1  *.  I  ON  I  I  Mill 
9  '1  I  ON  I  I  N 01 
711  CONI  I NUF 

I  I  I  KM  T 

II  (  I  NHK.I  O,  0)00  TO  9982 

II  C  I  A 1  K  <  II  IiX  )  .  I  1.0,  )00  TO  991 

I  1 1.  KM  4 

i  i  ns  1 1 1119*01  ni' 

KI  .IF  0  1  IF  ART  A  TOO  SMALL 

II  (  I  A  I  K  (  I  1 1)2  )  .  Li  .  TATRMN  >  00  TO  9982 
INI, I.  (NCI:  L  I  1  >*LM 

1)10 1  ART  A  OLI  I 

HO  'ill  JMrIMM 
IN  (,)•  I  )#NTDP+  T  ID  2 
OK  ( ,1 )  lAIK(iN) 

31  i  ON!  INI  II 

II  si  FT  AK  PARAMETER  AND  AREA  FOR  A  VAL  ID  CELL 

I  F  ( I  IK  (  2  )  .  F  0 . 0  .  .  OR  .  UP  <  1  )  ,  L  E  .  0  .  >  GO  TO  7 27 
DIVV-O. 

I L ( UK <  0 ) . 0  I . 0 )  D I VV  :  1 . / ( UP ( 8 ) *VOUANT ) 

REFlFCrtVlIY  CELL  (  IT  Yd)  OR  SHEAR  CELL  <ITY=4) 

IF  <  I  I Y.FO.O)  00  TO  721 
IT  (  I  I  Y.  I  0.4)  GO  TO  722 
00  U)  727 

MORI  RIM  IT  LI  ATT  RIBS  IN  I  Cl  (ARRAY) 

721  RET  I  =IIK(2)  /IJP  (  1  )  I  /OFF 
SHI  AR  =  UK ( 5 i *DT VV 

CAL  I  IRC  I  l.l.(  ELI  .  I ECL  .  REEL  >  SHEAR  .  TXR»  RN  I DY  »  NR  JC  •  NCO  ) 

IT  <  ITT  A07  .NF  .  I  )  GO  TO  726 
URT IF (A. 77 20) 

7  /  .*()  F  ORMA  I  (  I  X  f  '  RF  I  I  EC  I  I  VI  I  Y  '  ) 

UR  t  IT:  C  A  .  772 1.  )  I  XR  *  E  CL  (  1  *  T  XR )  •  E  CL  (  2 »  I XR  >  r  FIT  (  3  ,  I XR  )  *  E  Cl  (  4  .1  XR  ) 

+  I  ECL  (  S.  I  XR)  .  ECL  (  6  » I  XR  )  >  ECL  (  7»  TXR  )  >  ECL  (  0  *  T.  XR  ) 

7  7 1  I  ORMA  I  ( 1  4X  r  I  3 »  4FA .  I  r  1 5  *  3 FA .  1.  ) 

GO  TO  72 A 


MORI  SHE  AR  CHI  AT  I  RIBS  IN  ESCL  (ARRAY) 


.  '  1  '  ''I  -  '  1  >  F  /Ol  ! 

It-  i  ill' 

I  Ml  i  I  K I  !  :  '  I  ,  1 1  I  V  Rl  I  |  ,  SHI  AR .  1  XS,I\N  111  Y  .  NSK  M  .N'-TIl  > 

I I  'ill  At  ■  .  ,\i|  t  >  t,n  ri) 

U  >'■;  i  1 1-  •  6 , 

'  '  I  1  IRMA  I  !  I  •  y  T  AM' :  SHF  Ah: '  > 

141  >.  I  if  •  6  .  1  /  1  I  >  IXS.FSIT  <  I  »  I  X!'P  >KSCL  (2,  IX'.'  «F  SCI  ( 
i  II  Ml  1  S  •  I  X '  •  >  » I  SI  l  (A*  I X5  >  , 1‘  SIT  '  7,  IXS>  ,1  'ill  M’.IXS) 

UIMLU1  IT  I  I  f  ns  I  I  l  (>N  UN  C0N1IHIK  I'l  01 

.'A  r hn  i  i  ni ii 


7?  '  I  ONI  INI II 
I 

IFIIII  AG.  10 .  I  >UR  I  rf  (  6  •  77  1  0  >  NCI  II,  <  UP  <  J  >  .  O  1  , 1  M  > 

7  7  I  0  FORMA  I  (1X.2HIT,  14. 4X  .71  13.2) 

i ' 

I  1 1  Rh  5 

nc t::i.  i  i  ni  i  i  i.  1 1 

I I  ( ni  i  n  . i  i:  ..  n i ni  no  rn  7902 

1 

C  NO  I  MCI Y  St  01.  UUERWR 1 TE  LAST  SLOT 

i : 

II  (NODI  ,.l-  0.  A.  At  UK  C  ROOF  R  '  WRITE  <  7 , 763  ) 

763  FORMATi  '  HI:  II'  TOO  MANY  PEAK  CELLS*  NTIt  EXIT  I  I'FD '  • 

I  IT  KM  6 
MOOT  NOLI  I  f  I 
NO  FI.  I  N  i  l  i 
00  I  0  770? 

f  - 

?V  12  DO  77  13  .):=  1  »|.HR 
I  NHL  I  -~  Lf.J*l  M 
I  INDPK  H  IN  DP  I  1  >*N1DP 
1 F ( A  0 S  <  T  A  T R  <  I  1 N D  P > ) . E Q . N A ) G 0  I  0  771 

TF  O  ATE!  I  IN  HP)  .  IT  .  0  .  .  AND  .  TATR  (  UNDP  )  .  NF  .  997.  >00  TO  771 
77 13  CONTINUE 
I  IF  RM  7 
I 

770?  CONTINUE 

JF(  ITT  AG.NE.  1  >  GO  TO  5677 

DO  5670  1=  1. ,  NUMP 

GOUT  !.))  ~TATR  (  I  »  (.1  1  )*NIDP) 

I F ( ADS  <  GOUT  t ,  I ) ) . GT , 777779777 .  )  GOUT ( J ) “GOUT  I J ) / 1 000 . 
5678  CONTINUE 

WRITE  (  6,977  >  I.  TERM  >  I ,  I  ACT  (I  )  ,  (GOUT  (  J)  ,  ,J=1. ,  NUMP  ) 

777  FORMAT  ( 1X,2HXX,.1 1  , 1 4 , 16  ,  F7 . 2 «  8F1 3 . 7  ,  /  .  (  SOX,  OF  13. 2)  ) 

770  FORMA  I'  !  3X  »  I  4 , 1 6 , 1  7 , 2 ,  OF  1  3.2,  /  ,  <  20X  ,  OF  13 . 2  )  ) 

r 

C  Cl  FAR  IEMPORARY  CEL  L  STORAGE  ARRAYS 

C 

5677  DO  98?  1“ 1 ,NOMP 

T  JA-  If(.l  I  )*N  FDP 
7B?  TATE!  IJA)=~0. 
r  ACT ( 1)0 

771  CONTINUE 
1030  CONTINUE 
C 
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Rf  si  I  AND  CHAR  FOR  END  AROUND  TESTING 
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NAONt.  >  BO  TO  1040 
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1 

no 

•10.  • 

1 

'  «  1  1 

MX 
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,  H  . 
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0 
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1  04  4 

Hi) 

1  1 

.*  # 

NCI  M 

MH 

<4>  lt> 

1 1 

(IK 

1  1 

)  .  NK  . 

•  999 ) 

MH= 

1ABS(0(1: 1  )  ) 

1 1 

(IK 

1  )  . 

NF  .  -  9 

99)  MI 

-MAXO ( MH  t TABS ( U ( I )  )  ) 

tf 

(IK 

1  1  1 

'• .  m: , 

.  99V  ) 

MH 

MAXO (MH»IABS(U( I  I  I )  ) > 

"I: 

<  1  > 

MH 

K(- 

(IIKN 

I  Mil 

.1'.  1  -ill  i  !  Ol  I  !  Mi  Mill  .lllll  •  M  !  I  .SI  IK  AR  .  I  '•  . !  M  I  0  . iJl  II  .  Ml  M  ' 

f  *ti  i  i  I  t  Hit  ,  it  MM  *  i  i  t***l*tl*'M  + 


>  J.v-ii 


I  !  !  I 
I-  I 


i  I  Vi 


SM  ;■  u  .  r :  1 1  ii  i|.i  I  i  si  I  I  ;  i  (Mil  i  i:iii|  s  mi  m  Mil 

!•''  Ml'.  ■  I  •  M  ’  1  Vlli  HI  si  III1'.,  !  I  ■ rj  .  i  HIM':  ■  1  fj ;  is 

Ml  l  I  li  .  ,1  Ml  111  I  i  .1 1  I  111  A  II  iMMIlN  1 1 1 '  I  i '  I  i  J  . 


I  'I  iV  il 
ilM  Ml 

01  I  I  .'.III  AIM  I'  N  I  0 

Mil  .  I  (  I  II  i  I  v  MJI-  ir  MM  II 


i  i  '•  I  I  IS  1  . 1  I 

I  (,!  1  ;N'  iV  " 
l  I  I  I’  M'S'' 

'  f II  1:1  I  A!  '(i 
Ml.li  Mi  r,V  n 

i  I  W-thl  IN  Ml  l  II  (V  , 

i  it'ii.'i  in-  miii-m 

I  I  A 1 1  ;  HI  mill  •  IIHN.I  N  1  .1  (  i  IMS  1  «  NOI  IS 

AM  ill  Ml  .  ;  II  "MS  1  HAT  OEM  El  I  I  "  I  I  i  AMI'  Al  II1UUE 
'.'Al  III  S  AIM  A  I  01  OSONAOI  I  I  I  '.'I  IS. 

or  it"-;  low:  i.s  in  r/'.'Ax  ii 

li.’i  1  i  :  I  Si,  S  I 

HI  S  I  I.N  I  l. UlMIs  1  Al  S|i,| 

'  '  | i|,m.  ■  1-.HI1I  IS  I  AI-  SUM 

I  *****  it  **********************************************  ******* 

H  I  Ml-  NS  I  UN  CM  II  (10.1  MR  i  .  I  Cl  I  I.  Cl  0  -  I  20  > 

0  OMMllN  -  Ilf  I  IIUi:  /  Dpi  V  i  .in  I  Oil  I  Mil  (IMG »  HI  AT 


I... »  CANO  ( M82  i  .  THGT< 

'  1 1 1  2  i  7  M  T  N »  F  !..  A  S  I  t  SPK'M »  T  f  X  M  X 


COMMON  /  ICON  '  SI  I  Cl  » RNGIU  Y  .  SET  I 

common  'i  Ni/  f  nsci-i r  m; i mi  i  .ensr 

COMMON  I  CONST/  1.  AC  Ml »  IS  1010  «  7N0RS 

I  OMMON  'NCI  |S/  N  0  A  R  M  ■>  NCARM  .  NO  (1  MIC  0  .  I  C  0 . 1 0»J0*  JYR,I.  R  L  »  KTI 


I  'ACA hi  1 ER  <  7MAXC  /O .  .  MMAXC--  )  > 

ft  S  I  Nt  I  Al  f  1  1  Of  OA  IA 

II  I  Of  f  I  I  r  - /M  OI.OR.Wf  I  .Of.  ZMAXC  .  OR  .  KN  IV  .  CO  .  0  )  GO  W  20 

m  i  om  c  onii  ami  n  i  ai  cr  it  attribute';:: 


0  1  00  .  001.  /Ill -I  2  > 

Of  00  0. 

II  Mils  Hi  .01  .0,  )  0100  \  ./UK  (in 

XM  'OSN  III  ' CD  *01  OK 

-  COSO  III  '  (  T  )  *0 1  OR 

AREA  El E(  1  )  *SE  TRl  *  1  . 1  o*COSCM  I 

0 2  X I ' l)SN*XOOSN  1  YCOSN* Y C Oil N 

E'ANOf  "SORT  (ft  2  > 

Al  nun  KANC.I  *SJNEI  f  R7*C0SPHI 2/EAR  TH 
E'AUOI  I  life  61*0100 
Spool  I  •MIC  (  ■'  1  *0  T  00 


AO  HIS  I  IMIS  I  Tl  ON  TO  COMMON  ORIGIN 


XPUSN  >:POSN*CUSPH  I  I  III  (INI, 

YPOSN  YIUONHOSPHI  HU.  A  I 

ai  tutu  ai  mnr  tut  rum 

V  I  I  1 1 UU  IN  RANGE 

1 1  ■  r, i  Him  1,1 . hmaxc >  no  10  :*o 
I  Mil  :l  MINI  nil  ('  (HINT  ER 
|V  I  V  (  I 

II  <  I  «  .r,  I  ,  Nl  ARM  >  on  TO  .30 

■  l>  fill  I  LCTIVIIY  AVERAGED  OVER  CONTOUR  3DB  BELOW  PEAK 
CLI  I  0,1X1  -RE  I  I 
I  :>  >  ARE  A 
CL  I  I  <  di  x)  AREA 

■3)  f  AS  I  CRN  I  ROTH  POSITION 
I’ll  l  (3. IX)  XPOSN 

•  4  i  NOR  1 1T  CENTROID  POSITION 
CHI  <4. IX)  YPOSN 

o;,)  m  i  id 

I  i  I  I  I  ( • , .  IX)  KNID 
(A)  HEIGHT  AGI 

in  i.  <  6 « i  x  >  a i  t  ube: 

(  ’ )  RANGE  10  CENTROID 
Cl  I  I  <  *  IX)  "  RANGE 

( 0 )  T  ANGENT  IAL  SHEAR  ACROSS  CELL. 

ITU  <  B » I X  >  --SHEAR 

(9)  RADIAL  VELOCITY 
fill  (V.  IX) -RAWER 
(I0>  RAD  I  A I  VET  DC  I  1  Y  SPRE  AD 
LI  I  I  ■:  10.  IX)  ~SP DVR. 

RE  TURN 

COUNT  REJECTED  CEILS 

20  NR  IC  --NR  )C1 1 
RETURN 

COUNT  ARRAY  OVER! LOW  (TOO  MANY  CELLS) 

30  NCO  NO  OH 
RE  TURN 
END 
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i  i  i  .  m  i  ,  .  i  .1  ■  U  [  .  Tr  1  -  i'll  »  Ul  I  N  v  I  i  I  ,NI  MX  -  I'  i  !  .(/IS) 

*  f  **•♦♦**:(  t  «  •»  » .**+**+  t  *  *  ***  *4*i'  *  *.t  +  4  t  4  i**4  ***  ***********  *** 

Mu  hi  '  All  Ai\ 

I  !il  I i  I  i  I'  i  ,  i’  .  ■  .*'()•  '  '1  (Vi  l 

I  i;,;i  III.I  I  r  .  .i  i  1  ir-itli  A :  I  ASSUt  I  A  1 1  H  PI  Al  (III  n  f  I  u  i  cl  i !  i  : . 

IN  URHI  p  |(l  I  OEM  ;s  HIMINSION.U  MOIIIMI  (IN', 

!  1 1 1  k!  m  I  > ; 

(  iil  I  INI.  him  I  ii  i|  'I  KNi  ■  i  r  1 1MI  Ytl-'l  .  I'I  M)|  VI 
( 'Al.  I  I  [i  flllli'  ■ .  A  I  k'AK  <  I  N  I  PY  I  Ml  >V  '< 

INPUT  PARE*. 

I  i  NM  I  Will  S  HI  PRIOR  (III  TRACK 
•  Nr  I  Mill*  Ul  CURRI  NT  PI  At  (III 
A)  Ilf  I  w  MEASURE  nr  ASSOC  I  A)  I  ON  I  RUM  I  ((Ml  API  <  Nl  10  NO' 

4'  I  Cl  ARRAY  CON  TAINT  NO  REAl  PEAK.  (Ill  A  I  T  R  I  III  IT  I  S 

i . )  ncmx  nii her  r  or  peak  ce'i.i  h  ni:  ii  cn  n  on  current  ‘.can 

A>  irci  ARRAY  CONTA  I  NINE'  INTEGER  PEAK  CE II  A  IT  El  HU  II  S 

/>  r  /  IS  I  I.  All  I  NH  T  CAT  TN(i  REE'LCI)  OR  SHEAR! 2)  TYPE  Cl  l  I 

OUTPUT  PARA. 

I  )  NT  Mill  UHI  Cl  I  I  TRACK  ID 
COMMON  HI  OI  KS 

i ipiiA t  t  r  n :  n m i.  i  i  .  ha  t  a 2  *cnt 

RE  AH;  MPARM  *  71.  OOK  >  RADAR  «  NOE  IS  y  NOLI  T  *  PNTRS  *  T  NT  I.  * 

1  I  GS  »  HAT  A  2  «  HAT  A  4  *  CNT  .  Cl  ST 

COM  MEN  I  S  t  NORMALLY  UPDATES  ONLY  ON  REIT  CELLS* 

SI  NO  I  E  EXCEPTION  IS  AN  ISOLATED  SHEAR  C Ell 
WHICH  IS  HI 'DAT  TED  AS  A  REFT  CEIL  ON  ITS 
E  l  RB  I  OCCURENCE  ONLY 

VERSION:  2.0  DEC /VAX- 11 

HATE:  I  1  2  /  15/00 

he stgn:  rkcrane 

PROG MR  I  GHGOSTAESGN 

Ii  <T(  (|(  )Tc  <T(  i|i  (E  if.  (|i  IE  )E  i(c  lie  if(  (E  (E  <E  <E  <E  iTc  iE  <E  *E  iE  *E  (E  iE  (E  )E  He  E  E  E  E  3(c  E  E  E  E  E  E  E  EE  E  E  E  E  E  E  EE  E  E  E  E  E  E  E  E 

I  on  I  CAL  r-RCELL  «  PRSI G  *  PRF 1  XC  *  PRCl  IJS  *  PRSCAN  *  PRHEAD  *  PRNO.IS  y  PROVE  R 
DIMENSION  IECI.(  TO.  128)  *ECL  (  10*128)  y  I VCE.  (  53  t  4A0  >  y  17 1ST  (2) 

COMMON  /MI  'ARM/  MX  .  MY  y  M X 1  •  MY  I  *  I  MK  I  I  y  TMKTI  L 
COMMON  /7I..00K  /  JZOf  f  *ZARY<91  >  *  RRATE  (VI  > 

COMMON  /RADAR/  I  IMP 

COMMON  ,'NMI  I  S /  NM ARM  * NCARM y  NVO  y  NE  C) .  ICO  .  TO  y  JO  y  JYR  y  I..BE  ,  KTI 
C  0  M  M  ON  /  N  M I  I  I  /  KTI  I  .  NKN  T  D .  N  K  H  0  y  1 7  T  H  y  N  K  DM  X  »  I  T  II  RyTFXC  <  1 0  2  4  )  .  H  T  S  I 
COMMON  /PN  IRS/  NVM  IN*  NMMX  »  if  I  SN  y  NSC  AN  y  IESNI ...  y  NVSCN  .  NTT 
COMMON  / 1  N  TL  /  MITSN  »  MNSN  •  IIM  *  FNSN  *  FNSRN  •  NCI  N  y  NET  N  y  MZSN  y  NNM  I  N  •  EC  A  7 
COMMON  /FLOS  /  PRCELL  y  PRSIG  •  PRF  TXC  ,PRCI.  US  » PRSCAN  y  PRHEAD  y 
r  PRNO I S y  PROMf R 

COMMON  /HA  T  A 2/  MCI  <53 *4 AO) 

COMMON  7HATA4/  PCI.  <  V  •  25  A )  y  AF  CS  y  UFCS .  NE  MX  y  NE  ARM  *  KNIDC  <  10241  .Nl  1  A 
COMMON  /CNT/  COSPHI y S I NEE  * COSPI 2  * 7M I N *  EL  AST  * SPRM * TFXMX 

COMMON  /CI  ST/  ICLNy  TCI.  1ST  <25A)  y  1  Cl  MX 

E  00 IV Al  I  NCE  <  VCl  <  1  y  1 )  y  TVCI .  <  1,1)) 

DATA  IZTSr/O,  1.000/ 


1  20 


•  I  .  >  M  •  Nt  .1.1  .Ml  NX  >  K'l  I  URN 
r  .  !  ...  NR.  NO  .  i .  I  .  NOARM)  l-M  TURN 

:  ■  I  :  J I  •> 

n  '  ' .  I I  . 

!  !  .  ;  '  Hi  -  Vl  I.  <  4  * .  NO  >  *  I  Ml  I  I 

l  i  '  i  .  Nl  ■  0(  L  i  <1!!  y  NO  '•  +  I  Ml\  I  I 

il  .  i  i  •  ■ «  i J •  i 

1  I  |  v  .  Ml  ' 

I  !  <  1 1  ,  i  I  i  1  ’  i  •••  i  J I  ) 

i  I  .  ill  i )  .  I  IMM  AN  >  00  I  II  M> 

I  I  .  NO  .1  I  Mil  ;> )  UK  I  1 1  ( .-i ,  I  000  i  III  ON  .  NO  >  NO  »1Z.H*X»Y»A»  HI:  I  U 

,■  I  01  I  ■  v  '  NO  ) 

I  I  ij.'NA  T  l  O'-  .  •!  I  (,  .  ‘  .1  }!.  >.  I  !.!  » 

I  •  .  I  Ui  l  i  v  .NO  >  .0  1.  Hi  (in  I  U  I  0 

I  "I  I  ■  .’•# »  NO  )  I  on  <  ?•• »  NO  ill  ’IM(T,:  rs  ) 

■II  I  I  Nl  .  null  M  I  I.  I  0 A  I  I  ON  O.il  III  S 


"'|.|  .  M"  ■  ' 

■'i  i  .  ■,N','  i  i 
!  ■  'l  l  '  t »  Ho  >  |  / 

.'I  I  ■;  .1  -  NO  >  A 

"i,|  i  a*  NO  i  l  i  I  « SI  y  NC  > 

Oi  l  i  '  ,  -N‘  ’  1  H 

•!:  I  l  I  ..MO  >  :  II 

Of  I  <  /.NO)  I  ri...  i  /■  «N(  i 

i  "i  i  ( x ..  no  i  i  r  x n 

il  .  Ill  ON  .01.1)  I  01  I  (  0  /  .  NO  )  I  Aft?!  (  tool...  (  37  y  NO  )  ) 

!  I  i  I  01  I  SUN" )  .  Nl  .  ■>'  00  III  tO 

N  l  N  I  t  l 

fi!  it..  NO  '  N  I 

i  ■  i.imiii  . 1 1  il.;  i  till  ii  arkayo 

■  •!  I  .•  I, 'III  I 
r  !  i  II  .  I  I  l  .'I  l 
!  I  I  ,  i  l.l  .VI  I  1,1  VI 

.1.  ;  I  , 

I  ’  ■  ...  •  "f|  I  v .  no  )  II 

ii  .ii  -ii.  i  i  ,0,1 1). .  , :  ■  n .  o  i .  nkhmx  )  <:;u  ro  i.oi 

fin  i  i  in  i  nil.’  i  ii  ■  on  I  in  in  a  i  n;  i  i  base 
i  r,  i  in  n  i  "i  i  •.  ' »  no  > 

il'INIUI"  II  .0.1  If.; ,  I,  N  I  HI  I ) .  0  I  ♦  NKN I  ft  )  GO  10  101 
'I  t  1  N  I  HI  i  ON  I  HI  il> 

II  (Nl  i  II  O.OK.NI  I  .01  .Ml  MX)  00  10  1.01 

ono  'i  nil  has  win  assionih  a  prior  contour  in  <knihi 

Mil  f!  II  MM  II  XII) 

I  I  I  l.N  I  H  .  I  I  •  O.  OR  .  IN  I  H  .  O  I  NINIH)  00  III  103 
NI  I  N  I  Hi  ;  1  N I  ID 

II  .  Nl  .11  .  O.OK.NI  .  OI.NIMX  >  (.0  III  10.1 

f  iiiNII  II  l»  AS!'  >  I  ON  HI  I  ON  llllll.:  WITH  IAR0IS1  ARIA 

I  i  ■  Ml  MU  Nl  I)  1.0  TO  10  1 

I  .  n  l  •  t  ..  Nl  I  .  01  .1  I  I  '  I  y  Nl  1  )  )  0(1  H  I  101 


I  2  V 


i  ■'  1  M I  M  .  ■  I  til! 


P,-V  ' 

I  I  •  !  ;  :  l . :  M 

’  '  ; 1  '  i  <  '1  f  -  I  I  >.  ( i  / 

i'  \-(  i  i  I  .  t  i ■'  i  i : 1 1 1  I  1  . 

II  ;l  ■  I  '  "<  I  »  I  V  .  NV  VCI  '  > 

'i  in  . :  t .  ii.!<i  1  > 


1 ;  i  1 

1  1  -  nv  * 

•'IJ 

'  I  I  . MV!  t 

) 

U|  !  , 

1  '  .  N* 1  * 

Wl  1 

1  l  ' , MV  *  ( 

/  J*  -• 

Vi  1  * 

1  *.  v  t"}  - 

','1  1 

■  \  ,  NV  *  i 

Z  *  X  *  X 

Vi  1 

1 4 .N"  • 

>1  1 

*14. MV  •  ( 

/  *  < 

vri  *• 

iv.  r 1 1 

! ,'  r  i 

■IV.NV'  ) 

,  *y*y 

"ri  . 

i  ,*  .  nv  * 

"i  i 

•  1  ,  MV  >  t 

/  *  X  *  i 

■>(  ;  * 

1  ' .  H1.1  * 

"t  i 

t  1  ' . MV  )  t 

. '  ♦  A 

VI  1  * 

1  : : .  IIV  • 

’.'i  \ 

<  Id. NV  i  1 

/  +  H 

[in  1  1 

1  Uhl;  1  fll  [1 

five  X  I  t  1 

1  All  El  Us 

nr  i  t 

1 .1 .  NV  ) 

vn 

CM.N!')  1 

r  Cl  Ml ,  Nl  > 

"f.l. 

. '  4  »  N  V  > 

VI  I 

*  >4  .  NV  )  ( 

u 

MCI  i. 

■".i » NV  * 

VC! 

(  2‘* .  NV  >  t 

V*  V 

vi  l  *; 

'•V> ,  NV  ) 

VCI 

C'A.NV)  1 

1  11  (  IO.N!  ) 

'.-MU  ( 

2  /’ »  NV  ) 

VCl 

( 2/ * NV  >  1 

!U  1  W 

SUNN  1.  i  VAI 

UF! 

ir  (ii 

.1,  T  .  VI  I 

(  !  9 

.  NV  >  T  VCI. 

(  1 9 . NV ) - H 

II  (H 

a  r.vct 

( 22 

y  N  V ) )  GO 

(0  1  1  1 

MCI  ( 

22  >  NV  >  - 

FI 

1  MCI 

( 2.1 .  NV  > 

-vIZ 

CONI 

INIJF 

CPI.. 

y  UF'ITAIF 

T'S  AT  TRIP  II  TFT>  AND  FT  TUI 

IF  (  1  ZTS.FO. 

1 >  GO  ro  1  1 2 

CAI  l 

T  BOV  (  NV  *  Nl 

'  ) 

I  F  CI  VCL<20> 

NV  ) 

F  U  .  O  )  TV! 

:i  (2<)»NV)  “iz 

RETURN 


HI  I  I  NF  PEAK  RET  I 
I  I  2  CON  I  INIJE 

II  <  12  .IF!  .  1VCI...(20»NV>  )  TVCI  <20,NV>" 17 
RE  T  URN 
I  Nil 


ieroi  1 1  inf  hiramno.ni.  ,f  ri  > 


***+****************#**#***#********************* 

'  ‘.ill  HI  KAI\ 

M  i  !t  i  i  ;  |  K'l  AO/V  600  (I  A  A  > 

vtl'u'.l  :  III  GlORt  I -KM  Oft  SCAN  A  T  1  R I BOTES  OF'  VOLUME  (FI  I  I  FAUNS 

i  M  II  hi  Alt  : 

i  Al  I  INI.  rlilli .  till)  I  ROO.  COMPARE*  RE!  SOI  01 
I  A, I  I  I  Ii  non:-!.  NO  Ml: 

INI 'll  I  HARM. 

I  .  MO  I  Mill  X  (It  (  F  I  I  TRACK 

M  N(  I MUI  X  01  OR  FOR  SCAN  PEAK  CELL 

i>  F  Cl  ARRAY  CONTAIN! N G  P E A K  C t : L L.  A T  T R I B U T F  S 
(1IHIIII  HARM.  NONF 
l  I IMMON  BLOCKS 

IIIIIAI  II  HI  ri  A  T  A  * 

RI  i.H:  DAIAl’.NVI  IS.  VP  ARM 

.  mmmi  Ml'  •  ORHATF  C  RF  I  I  (Fils  ONLY 

VI  I  i  i'i!  I  1.0  HF  C/OAX  I  I 
CA I  I  *  I  '  16/HO 

O'  1 II  I  I'M*  RF  (  RANI. 

II- 1  if. Mi  ■  ;  I  .F'GOS  T  AF  HON 

+  *  ***  F*  +  b  *Jf*  **********************  t*************************** 

I  Mil  OF  h  I 

mill  MM  I  in  111  (  I  0  »  120 

'IIMMON  /HA  I  A  1  /  OR  (  6  460  ) 

I  IIMMON  /HAIA2/  OCI  (S.T-460) 

I  OMMON  "NOI  IS/  MO  ARM  i  NCARM »  MOO  t  NF  0  > ICO*  1 0  *  JO  *  ,JYR  t  L.BI..  »  KTI 
l  IIMMON  /ORARM/  OX  .  OY  .  OX  l  .  OY  1  v  I  MM  L  *  TMKTI  I 

I  I  < MV .It, 0 .OR .NO . GT  . NOARM)  GO  TO  10 

II  •  N(  It  . O.OR.NC .01  .NCARM)  00  TO  10 

nil  INt  LAM  FI  F  OAT  LON  OAI.UE'.S 


OR'  I  .NO  )  l  CL  i  T  «  N(  1  OCI.  <  47  >  NO  ) #TMKTL 
OR.  ..MO)  F:  Cl.  (4. NO  ~VCL<  48,N0)*TMKTI. 
OR  (  1 «  NO  >  F  CL  (  1  -  NO 
"h  •'  1 1 N  0  )  I  IT  (2.  NO 
OR  v,.  MU)  F  Cl  (6.  NO 
UR  NO)  FI  |  (Hr  NO 
"  I  UN  T  I  Nttl 
RI  IIIRN 
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i 

l 

t 


i  i  :  :  » '  a  (  N*w-  *  ni  y  m  I  U  • 

*  t  y  t  *  4  t  fc  *  *  *  *  *  *  *  *  *  * fc  t  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  +  *  *  k  *  *  *  *  *  *  *  i  *  *  i  ******  ' 

f/nf  ‘!  .  '  '  M-.Y»i 

i  »•  »  ■}  i  )  i  r  |.*  i  c> v .  r.oo  ( i  r.ri  > 
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i 

t . 

t  ■ 
i 

i 

i : 

i 

i  ■ 

i 

i ' 
( 
i 
i 
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i  ■ 
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i  ■ 
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t 


I  •:  t;  i  i !  •  >  ;  in  si  OKI  AllRIRIIILS  HI  '.Mil  Uhl  Un  l  .Mi 

HUM  AH  l  IF 1 1 1 A  I  1 1  1 1  in  A  SHEAR  III) 


’  ii  1 1  Kl  At  l  1 . ; 

I  All  INC-  Ml.)  It  „  I  OMF'ARF  *  A  1  KAK  ( L  N'l  F'  r  ISHH 
t'AI  I  I  I)  MO Vl '3  .  NOME 

INI  HI  I  ARM. 

|  )  MO  I  Mill  X  01  n  i  l  FRAIL 

:>»  mi  i  urn  x  of  rri  at  rni 

i)  mi  u  mi  a'.iimi  oi  association  irom  lomraki  hi  in  uv 
null'll)  I  HUM  NONI 

COM  MOM  HI  1)1  l\S 

uuuArmi:  haiac 

K'CaO:  DA  FA!) 


fOMMINTS!  (IP  DA  FF: S  ON  ASSOCIATED  SHIAR  (II  I  S  ONI  Y 


OF  PS  ION ; 

dai  t  : 
dps i on: 
proomr: 


i.o  m  i  /vax  1 1 

I  2/1 3/00 

01)  01.1  SI  A I  SON 
OKI  HOT  ARSON 


^^'M**********^*t^*tt**t**********tt*>IHtt*  ***************  *t** 


D  I  M  I:  M  G  I  0  N  I  0  C  I.  <  5  S y  <1 3  0  > 

COMMON  /DATA2/  OR  I .  <  53 »  430 ) 

common/  data:.;/  escl<  ioh/8)  .nsco»nscmx.nsr.)c 

com  oai  i:ncf:  ( on.  cnii.  ioglu  .  i  >  > 

IS  “I:!  SCI  (IN  NO 
f  Si  .1  <  V  y  NO  ) 

I  VC  I  (29  « NO  >  ■■  I  OCI.  <  29  v  NO  )  1 1 

STORE  AT CRT B  ON  ASSOCIATED  TO  CELLS 

Of  I  (  23  »  NO  )  -OCI.  (  23  v  NO  >  ITS 

on  <  24  »  NO  )  on  (  24  T  NO  )  I  0 

on...  <  25  y  NO  >  on  <  25  .  NO  >  10*0 

OCI  (  23  .  NO  )  =OCI  <  23  y  NO  )  1 1  SCI.  (1  0  y  NC  ) 

on  ( •>  ■/ , no )  on  ( 2 > y no )  *m  i  u 

STORE  AT  I  RID  ON  IS  CELLS  ONLY 


ENTRY  T  SI  10  ( NO  y  NC  ) 

i ' 


132 


on  (  A  A  ,  N  0  )  0  P  L  ( .30  y  NO  )  F  1  s 
OCI  Ml  .NO)  OCI.  Ml  yNO)  FO 


r 

» 

i 
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vf  :  in  !  i  r  uit  );•(<«  ro  comi-ctf  a  hi  v  hm  hi 
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MAUI  NI  W  Id  G 1  III.  RFORMCR  L  IST 

OX  Of  \N(  ) 
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run  or,  i  >  nu 
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I  ■'  FAN*  M  Ml  I  5.  I'M  I  05  -  II  OS  .  HA  I  A' .(  ONS  I  .O  N  I  .  I  l  ON'  I  •  I  M  I  I 

COMMF  Nl  SI  I  ol  I  I'll  ONI  i  WM‘  N  MOKI  I  HAN  ONI  IMII  III  I  10  r.SSllt  ! 

III  MU  SAMI  I'l  i  I  I  IV  A I  K  I N  I'OMI  All  . 

mi  i.'s  i  ori  :  i  .  •  in  o/unx  ii 

I'ii  I  I  *  I  /(,: 'll  I 

I'l  5  I  ON  *  OKI  i  'AMI 

•'•i-'Oomi::  mull  i  anu 

*  ti*)****#*  ttXtXKXX**.******#****#  *%*************  ********** 

I  OHtCAl  PKtn  I  .  PRS  ?(»•  f'KT  r  XC » PRO  US.I'FvSrAN.PIVHf  AN  y  PRUOI,  S  .  I  •CP1."  I 
Ii  I  Ml  NS  ION  I  VCI  (  52.  .4.M>  >  » V(  I  2B,  X  )  .1  Cl  <  1  (),  I  OB  I  .  I  III  <  1  0  y  1  20  '■ 

COMMON  .'NO  I  IS/  NVAIVM «  NCAFVM  »  NVO  •.  Nl  0  v  I  CO  *  I  0  * .  10  •  JYFV  •  I  HI  -Ml 
C  0 MM O N  / p N T IV S /  N V M  r  N  «  N V M X  •  T I  I  S N  *  N S C  A N  .  I F  5  N I  ,N V S C N  .  N  I 

COMMON  /Cl  S(/  I  Cl  N.  I  CL  IS  I  V  25A1  .III  MX 

COMMON  /C  Ilk  AYS  /  I  C(  1 .28*  1.0)  »C(1  28*9  1  y  I  IK  I  28*  10O  IK  1  28 . 9  '  y  ]fl«  IM  . 

COMMON  /II  OS  '  PFVCII  I  yPRSJO. PIVFTXC  yPFVCI  I  IS  .  I -RSC.AN  .  I  lil  IF  Aliy 

I  I'FVNO  I  S,PIVOVI  IV 

COMMON  /TtA  IA.'V  VCI  V  5,5  y  4*0  ) 

COMMON  /CONST/  V  M  I  S  U  <  2  >  y  0 1 V  .OH A 0  y  V M 1  SUM  y  ZD  I V  y  All  I  V , 

I  At  y  A  2  *  A  ,5  r  I.1 1  y  152  y  Fill  I  V 

COMMON  /CNF/  COSPH  I  *  S  I  NF  I  y  COSP 12  r  ZM IN  ?  F  I.  AS  1  »  5PIVM  -  IFXMX 

COMMON  /F  CONI.  I  /  F  A IV I  H .  TSIl  I  V  y  7  NO  TVS 

COMMON  /  INTI  /  MUSN  y  MMSN  y  FIM  *  F  NSN « F  NSFVN  y  NCI  N  .  Nl  l  N  .  MZSN  •  NNM  I  N  .  I 

COMMON  /I  I VI  •'  II V  (  5  I  2  >  y  IIC  <  25 A  )  ,  I 1JV  (  5  I  2  *  2  )  *  1 1 1C  (  25 A  -  2  )  y  i  V  <  I  '!>  .  1 

F  OIIIVAI  E  NCI  (  VCI  <  1  .  1  >  y  I  VCI  (  I  .  I  >  ) 

HA  F  A  I.  VMX  /  1  20 / 


FIA  VI  Cl  OS  IF  IV.  0FVI5ER  I  ISIS 

HO  4  1  =  1 . 6 
4  I  V  (  I  *  I  >  0 
FV  14 

I  VS  5 

i  c  r  i 

res  =  2 

IV  I 
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Jr  i 

!  o  o 

i  i  o 
!  V  1 
1,1  I 
Nl  1  fJi  A 

If  ■  N  i  I  .  I  f  O  .  (»k  .  Nl  1  ,  li  I  .NCMX  >  (10  10  100 
i  'Fill  I  '  s  Nl  I 

II  'HU  ■  Nl  I  .  1  I  .11  .  0.0R.  llllMNCIM- 1  )  .GT.NUMX)  00  TO  66 
11  <  III  •  Nl  1  >  ,  If.  >00  10  66 

NO  I  IIII'INI  I  •  II 
1 1|  <  Nl  M  Alt',  ( III  <  NCI  )  ) 

lAII  COMHINf  I  NO  I  >  I  MS  «  I  Of  «  KU  »  J •  I OMX  ) 

II  (  III!  1  MC  I  *  '-M  .If.  O  .  OR  .  1 1 1C  (  NOT  •  1?  )  .  GT  .IN)  GO  TO  62 

I  I  I II  <  NT  1  ■■  > 

lx  I  Ti  •  I  «  I  > 

I I  «  i  -  .11.  "i  oil  10  6.' 

If  t  .IX  .0  1  111  >  IX  liT 

III  <  I  -  I  •  IlH  I  «  I  ' 

|ill  A  I  I  I  I  »  IX 

i  A I  I  MlhH  I  Nf  (  I  !H  I  .  .If  I  )  •  I  OS*  IV  T  »l\0  »  MM*  1  OMX  ) 

‘  II  l  ON  I  I  Nllt 

I  T  T  1 1  f  S',  NOT 

If  (|l  10'  <  NO  1*1)  .If.  0  .  OK' .  1 00  (  NOT  * l ) . GT  .  NCMX  )  GO  TO  66 

II  v  I  in  (  NO  I  )  .  I  f  .  0.  )  GO  10  66 
Nl  1  I  110  (  NOT  -  1  1 

1 10  (NO  |  i  AF<!>  ( 1 10  <  NO  I  )  > 

I  At  I  I  1 1  Hit  I  Nf  (Nl  I  »  ICS*. I  Cl  *KC  •  I*  TOMX  ) 

II  i  |II0<N01  .If.  0  .  OR  .  II  JO  <  NO  T  » 2  )  .  G  I  .  I  h  >  GO  TO  66 

I  1 1 10  (  NO  f.’) 

IX  1 1  ■'  I  »  I  < 

II  •  MX  .If.  0)  GO  TO  6  < 

If  (Mx.  II I  ,  MM)  IX  MM 

i  c(  i .  i  >  1 1: <  t .  1 1 

HO  6  I  l  I  *  MX 

I  Al  I  I  OMlt  I  Nf  (  1C  <  I *  Ml  1 )  y  ICG  *  TCT  *  KC  *  MU  >  TOMX  ) 

AM  1  I  ON  I  I  Nl  lt 

RUN  COMPARE  LIST  TO  FLUSH  OUT  FULL  SET 

6  6  HO  66  I  F  -  MOrKO 
NO  I  ~  I  0  (  K  *  I  OS  > 

f  f  >  NOT  .1  E  .  <> .  OR  .NOT.  G  I  .  NOARM  )  GO  TO  66 1 
If  (1 10  (NOT  )  .11  .0.  )  GO  TO  ATI. 

If  ( 1 1  JO ( NO  T • I > . GT . 0 . AND . 1 00 ( NOT  rl). LE . NCMX )  GO  TO  AM 
Ml  CONTINUE 
GO  ro  66 
6  A  1 0  -*  K 

I  C  I  Iff 
GO  ITT  A? 

66  HO  A  A  I  K  Ml'  •  I\ (.'- 
N(  1  -•  r  O  (  K  .  ICS) 

II  'NCI .I  F. 0. OR. NCI. GT. NCMX)  GO  TO  661 
II  (DC  (NCI)  .If  .0.  )  GO  TO  66  I 

f  f  (  IUC  <  NC  T  *  1  >  .  GT  .  0  .  ANP  .  IIJC  (  NCT  *  1 > . LE .  NO  ARM )  GO  TO  67 
AM  CONTINUE 
GO  III  AO 
A/  1C  K 

I  010*1 
GO  III  AS 
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>11  . 1  I 


Ml  |(l  /O 


i  I  (  I 
10  ,  , 
10  I 

!  i  1 

K  I 
ill)  l!l 


1  l.iMI  III  Hi  loin  1  I  ST  *  NOW  t  I  NH  Id  SI  HA  III  I 

'■>  if  <  k r  . i  i  .  i  . in- .  i\ o ,ii  i  )  (.0  in  i  oo 
K  0  K 1 1  1 

1 1  ( ko  f.i.i om>  >  (.it  in  t oo 

KC  M  I 

1 1  < f  f" .or.  i o m x  .  i.n  rn  too 

I  MOM  0 

IK)  70  I  K  I  .  |\ 0 
NO  lU'IK*  I'')*'.) 

If  (NO.  It.  O.UR.NO.  Cl.  NONXiGO  TO  70  I 
DO  ( NO  1  :;:AHS  ( 1)0  <  NO  >  ) 

■01  CONTINUE 

DO  71  l\  I  .KG 
0  ( K  »  I  ) -0 . 

0  (  K  y  2  )  --0  . 

o  (  k  * ;?  i  o . 

:i  0  <  K  .  IT  I  >--o 
i  o  <  k  *  i  o  r '/  ”0 

I  0  < K  f A  )  ~0 
r  0  <  K  y  6  )  0 
TO l K. 7)-0 
NT  TIO<K  .  ICS) 

I  f  (  NO  ,  Mr:  ,  0  «  OR  .  NO  .  0  I.N C M X  I  B 0  I  0  7 1 
UC < NO ) -ADS  < DC ( NO ) ) 

NO  Ml  DC  (NO  I  1 

r E  (  NO  .  I  E  . 0 . OR . NO . GT . NON X )  GO  TO  7 1 
IT  (  1 1 10  i  NO  .  1  )  .  L  T  ,  0  )  GO  TO  71 

II  <  I  DO  >N0.  I  >  .NT  .  NO  GO  TO  711 
0  <  K  y  I  >  III  (  NO  ) 

1 10  (NO  I  "  1 10  (NO) 

DC  (  NO  '  =1.11  (  NO  ' 

I  0 ( K  *  X )  NO 
GO  TO  71 

•  I  I  I  MSN  INCH I  I 
7  1  ION  l  INI  If 

II  (KO.I  E  .  <|\0  I  MSN)  .OR.  I  MSM.EO.O)  GO  TO  ?h 

E  T RSI  ROUND  MIN  IJFTGHT  SELECTION 

KNO  0 
KNO  0 

no  77  K- I .KO 

T I  (  I  0  (  K  .  /. )  .NR.  0)  GO  TO  77 
Nl  I  0  (  K  .  I  OS) 

If  <  NO  .  I  f  .  0 .  OR  .  NO  .  GT  .  NOMX  )  GO  IT)  72 
II  (lie  (NO)  .1  R  .0.1)  GO  TO  72 
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NU  I  I  If'  (  N(  •  I  ) 

IIMNU.I  I  ,  n  .  Ok.NU.GT  .NUMX)  HO  TO  724 
1 1  ( 1 1'.1  < NU  )  .  O  I  ,  (> ,  I  >  00  i  n  725 
lUM-,’  >  NU 
IsNU  IM"t  | 

'  i  i  mi  <  Nr » > 

II  I  I  II  . O.OR.  I .01 . IM>  00  10  721 
IX  I  ("ilr .  ■.  I  I  *  <  J  »  1  )  > 

II  •  IX.  I  I  .'2.  Ok.. IX,  01,  Jh)  00  TO  721 

OU  0 

run  vv>'. 

Ill)  .’7  1  .1  It. IX 
NU  I  MU  I  -  II  I  ) 

II  ■  MU!  .1  I  .  0.0k.  NUT  .  OT.NUhX)  00  TO  723 

I I  i  ll'.U  NUI  '  .11.  0.  I  )  GO  TO  723 

III  I  W  I'M  I  .  ,l> 

II  (Till  W.l  I  .  0.  I  >  00  TO  723 
TiU  1  :  AM  I  N  I  (  DU  f  t  TiT  t  U  i 

ii' nun  .id.  in.  i  un  nu~nut 

■  •  .  ION  I  I  niii 

II  (  N"  .  I  l  ,  Ilk  .  NU.  .0  1  ..  NUMX.OR.NWT  .01  .  UMISW  (  t/TS)  .OR.  HUT  .1  I 

i  on  in  >?\ 

011  10  727. 
r  ■  -  liu i  in  < no > 

’.v.  "■  t  .2)  owi 

1 1 U  *.  NU  U,  AKSCUUINU  »  > 

III  (NO  I  ADO  (l)(U  NO  1 

iU'  I- .  tor  v  nu 
Ml  If'  72 

■  '1  I  Nt  h  NO  1  1 

II  ( I'  N(  .01  .M  '  00  TO  72 
IUiRNI't  IUT  )~K 
•  7  (  ON  1  I  NI  If: 

T I  ■  K  NU  .  I..  I  .  0  .  ANTI .  KNC  .1  I!  .  0  )  00  TO  75 
II (KMC  .10.  O.OR.KNO.OT .KC)  00  TO  80 

(  ABCAHT  kl  ORDf  R  01  COMPART  LIST 

.1  n 

21  III  l 

IT  (  t  .01  ,  R Nr )  00  10  80 

I  TU(  If  i  ui  > 

r I  ( K  .  I  1.0. OR . K . 0 T . KC )  GO  TO  731 
NT  IV<Kt ICS) 

II  <NC  .If  .0.  OR.  NC.OT.NCMX)  GO  TO  739 
N"  HIC(NCtI) 

I  I  i NU .1  1.0. OR . NU . O  T . NUMX )  00  TO  739 
IK)  '30  I  I  .  M 

II  (  TUN  i  3  >  .10.  NU  >  GO  TO  7381 

If  (  I  U  ( I.  .  TCI  )  .  TO  .  NU  )  00  TO  7382 
Ml!  (  ON  I  I  NOT 
00  TO  739 

u:  i  nci  run  .  :i:cs) 

01  I  I  =  UMTSW<  I  /  IS)  1U(I  t  I  ) 

00  TO  7383 
18  1  NCI  TU(ItICS) 

nil  1  UMISW <  f  7 1 S  > »U(l  .2) 

uri  M  l 

I I  T  NC I .  I  F  . 0 . OR . NOT . OT . NCMX )  00  T  0  739 

II  ■  I  HIM  NO  I  .  I  )  ,  L  E: .  0  .  OR  .  I UC  <  NC  I  t  2  )  .  I  t  .  0  )  00  TO  739 


Hf  I  W  ABS  •:  I  H  ‘  (  NO  > 

I  i  nnst  i  no  an  t ,  >  ■ 

It  i  l  .it,  <) ,  t )  l  •: ,  l  .  i  ■  t  .  i  m  >  o.n  in  /  w 

.IX -TABS  <  I  IK  I  .  I  >  > 

1 i  •:  .ix  i  i  .  o .no  • . ix  . ( 1 1  .  iM  ,  i.n  in  aw 
jiw  i  uyv . 
fan:  o 
nun i  yyy. 

MU  i  a 

tin  1  ’  i  Mi.-: 

I I  ■  in  i  y i  i . i  i  .  o ,  i  •  r.n  in  ’ 

nui  I  Art  i  h  i  <  nut . II «  i  .1  >  i 

NU  I  I  I  AH1- '  i  IK  I  .1  t  1  >  ' 

1 1  miwi  an,  in  i  .  i  )  •  n‘M<  no  i  i 

I  I  <  NO  fi  ll  -O-l  IP  .NO  I  I  .1.1  .  MUMX  ■  1 .1 1  1  1 1  ■  ’  .• 

I I  <  DU  i  nu  i  i  i.  r. )  ,  o .  i  -  ih.i  i  i  am  I  n  I  no  i  I  .  li  ■  :  a  -  - 

r i  < nu i  i  .  i  i) .  n  i  a  .  •  nui  mv  i  i 

I  OHM  HI II 

I I  1  huh  ii  * 1 1  a ih  ,  huh  o  i  . hum  -  . in-1 .  hw  i .  i  .  .  I  an  anj i . oi  -  um )  ',u <  i ■ 
i  (a)  m  My 

tr  <  hu  i  a  i  . o an- ,  hu  i  hi, hum*  ,  m- .  hw t  i  aa  .  "m  i  '«u<  i  /  i  s  f . hi.'  .  nun  i  a  i 

I  fill  TO  AO, 

HI  I  Ml  HI  I  WtHUH  l 
Ilf  I  U0>  HITWIHWI 

it  -nt  i  uh  aii  air  i  i on  in  /  v. 

i  u  >.  k  .  x,  i  NU 
Ufi'  .  M  nr  i  w 

I  U  ( I-  M  A  )  HU  I  I 

u  •:  k  ) .  a  nwi  i 

I I  f  nf  i  ui? , fit: , hit  w i  >  no  in  aw 
:i  u  <  k  i .  /■<  NUB 

no  to  f.rv 

•'  U,  IK  )  •'  V.  I  1  r  Kf 

II  <  (U<T,X) .1  O.NUB)  (ill  III  'TV 
ff  <  I  U  (  I  .  I  f.T  >  .f  I) .  NUH  I  00  10  7X7 
ma  noNTiNur 
no  in  •xu 

/  •  •'  HI:  i  i  nr  i  r  tu<  i  .;>> 

Hf  I  WO  :  lit  I  WfHUMUMM.UK  T/TS> 

ii  c in  i  w.’aa  an  i  r  >  no  to  mu 

I U  < K .61  HU 
U  f  K  »  X  1  IH  I  W 
I  "  <  K  I  .  6  1  -  NO  l< 

0 ( 1  I . X  ) :  HWI 
I  U  (  I  .  I  0  I  1  0 

on >  o.. 

ro;  i  u(K ,  n  :  o 

KNU  KHU  t 
IK)  10  7X1 


I  XI  HANOI  PAIRS  MIR  MIN  Mf  ASHRI 


00  IT  <  KNU  ,11.0.  OR  .  KNU  ,  II  I  .  KO  1  flu  TO  7S 

no  ho  i  k  mm: 

NUH  i  u  <  k  .  r> 

ri  <  nuh  a  f  .  o .  or  ,  no n .  n  r ,  numx  >  no  ro  no  i 
Tf  <  inufNUR.  a  i  .0)  no  10  not 
NO  I  UMn  .  1  OS) 

Tf  (  NO  a  0  .  O  .  OR  .  NO  •  01  .  NOMX  1  00  I  0  801 

N0~ T  U 1 K  »  ? ) 
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no  oo;>  i  i ,cc 

IT  (NOB.T  IT.  IOU  »  H  T  >  .OK.NOB.RI.  I0(L,3>  )  00  TO  003 

!Ui  ‘  CUNT  I  NUT 

on  ro  ooi 

%  Mill  I  0(  I  .  ICS  ) 

I  IABS(  I  1 10  (NOB.  3)  ) 

,ix  i  (  <  i .  n 

IT  (JX.I  T  .(T.OK..IX.GT..IM)  GO  TO  801 

no  no-’  .)  i .  ix 

it  ■  i c (i.ii.  t  . i  o . ni: b )  go  r o  ooo 

00/  CON  I  1  NUT: 

GO  TO  On  I 

ooo  noi  r  -t:  ( r  f .)) 

ill  I  WK  HOT  T  TABS  (DC  (NO  ) 

HR  14 1  V  <  K  .  3) 

1  f  (  BT  I  Ull  .  It  ..IT  HR  ui  I  ■■■V  (  K  ,  2  > 
n  <  HI  I  IJ  1  .12  ..IT  BE  l  141  0<N>  1  ) 

OR  143  0<l  ..ST 

IT  (MR  14  M  T  ,.l»  BET  142  0(1  .3) 

r  t  •:  hr  142 .  i  f  . .  i  >  br  142  -o  <  l.  ,  1  > 

(if  I  14  BR  14  1  +BR  142 
IT  aiR  14.1  f.  DE'l.. WED  GO  TO  001 
V <  K  .  .1 1  ABOa.lt:  (NO  T 
0(1  .3)  BSE  I 
TO  a.  .A  i  -  NOB 
10(1  » 6  T  -NO 
OOI  1  O  (  K  ,  7  )  ■=() 

c 

C  FINISHED  ASSOCIATION,  FIND  CLUSTER  IB 

C 
I ' 

r<  n  i.usi-o 

BO  761  K  "-1  ,  KO 
NO  IO(K, I OS) 

IT  ■ NO .  I  F  . 0 . OR . NO , GT . NOMX )  GO  TO  761 

I  Cl  IIS1  MAXO<  TCI  CIST  ,  1  OCl  ( .SO, NO)  ) 

//.I  CON  I  i NOT 

ri  (  I  Cl  use  .  r.T.O)  GO  TO  7642 

II  I  list  TCI  N 
MIN  TCI  MSI  »  1 

II  <  fCI  N.l  T  •  TCI  MX)  GO  TO  7641 
TCIN  f  CL  MX 

no  iron 

764  1  II  I  IS1  (  1CI  USTV-1 CI  IIST 
GO  II)  76  4 

’64  1  in  in  tsi  ( in  ijst) 

11(1  Cl  ,  T  If .  1  Cl  USE  T  GO  TO  764 
t  F  <  TCI  .If  .O.GR.ICI  .GT.TCLN)  GO  TO  7641 

in  iisr  u  i 

Till  II)  7647 
764  BO  767  R  I , KO 
NO  I  O' K .  I  OS  T 

If  (NO.  If  .0. OK. NO. GT .NOMX)  GO  TO  762 
If  I  -I0C1  (  SB, NO) 

IT  (III  .  G 1  .  TCI  N.OK.  TCI.R.O)  GO  TO  763 

III  ISI  (  lit  T  III  OS  I 
76  *.  I  OR  (.SO, NOT  1(1  (1ST 

II  (KKSOANT  URIfE  (6,1029)  ICl  IJST  ,  NO  ,  OCL  <  1 ,  NO  )  ,  OCL  <  2 ,  NO  ) 
1077  T  OKMAI (IX, '  Cl  ST  ' , 21 5 , 2F 10 . 2 ) 

76  3  I  ON  II  NUT 


i 
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I  If'.H'i  it  (->  I  ill  Kill  I  s 


nn  /n  i'  -  i  »  m 

1  I  •  I  ■  I \ ■  l  AN  I 

I  UK  I  IMA-  -'HIP  I  (I  l)H  I  •  I  V  ( l\  >  ITS)  »  IU<K  )  »  I  (  h  .  TO  1  >  , 
1  I  V  t  K  v  3  >  ,  U <  |\  ,  P  ,  U  i  K  ,  7 )  .  U  ( l\  ,  I  1 
.'III!  I  ORMA  I  (  I  X  v !#  I  .51 
Mi:  IMIK.II'S) 

n  <■  lur . i  t  ,  o.i'R.wr  .in  »ni  iix  t  nn  in  ?n 
i f  ( i or < nr .it, u  . o >  on  i n  /a 

MU  I  V  <  K  »  A  ) 

IF  < NU , I  F  . 0 ,NR .NU .01 . NUMX >  Oil  III  010 

nur  u(K»  :*,! 
on  m  a,'o 

.  0|o  NU  I  U<  k  III  i 

I  f  ( NU . I  f  . 0 . OR . NU . 0  I  . NUMX  >  00  TO  81 1 
HW 1  ■  U ( k  ,  7 1 

on  TO  870 
H 1  1  MU  I  U  (  K  .  >  > 

T  F;  (  NU  .  I.  F  .  0  .  OR  ,  NU  .  OT  .  NUMX  >  00  TO  79 
HUI I  U  <  k  .  I  ) 

870  I  F  (  HUI  I  .  I  T  .0.1  *  OR  .  HUI  I  .  OT  .  UM I SW  (  1 7.  TS  >  )  00  TO  '9 
IF  (  FI.IU(NU„  n  .1  I  .0)  00  TO  79 
IF  ( TNITAI  .FQ.O)  00  TO  77 

OAII  A  T R  AK  (NT*  N U  *  N C  »  HU  T  » F  0 l. » N 0 H X  » I E C l..  •  T  7  TIP 
OAF  I  FM  RAM  MU  .NO.  I  Cl  ) 

00  10  77 

NO  ASSN  F  I  NK  F:  MR  TY  NU  ANH  START  NEU  OF. I  l 

'9  FT (NUMX .FT .NU MIN)  GO  TO  7911 
HO  791  1  NUMTN.NUMX 

I I  <  FULL.  C  53  1 1  )  .  10 , 0  .  ANH  ,  I  UCI  <9,  I  >  .  f  0 . 0  .  on  TO  79 
“>  I  CONI  I  Mill: 

‘Ml  I  NUMX I  I 

I  I  <1.1  1  .  NUARM  >  00  TO  7971 
nun  NUOF I 
I  NUARM 
NU  I 

00  TO  77 
971  NUMX  1 
797  NU  I 

N"M IN  I 

I  VI'. I  <  ' H « NU  >  FOI  FIST 

IF  <  INI  IAI  ,  FTJ.O)  00  TO  77 

CAI  I  AT  RAK  <  N I  .  NU  •>  NO  r  A  .?  El  l  •  NO, MX  »  FT  OF  .  I  7.  TS  ) 

OAF  I  FT  IRAK  <  NU- NO,  f  FT  ) 

I  I  AO  Nl  CNU  AS  ASSORT  ATT  H 

7  7  1 1 )U  (  NU  •  1  )  NO 

I I  III  <  Nl  .  1  )  NU 
I IU  <  NU  )  (>.. 

III  (  NO  i  0. 

7f!  OON  F  I  Mill 

HO  99  f  |  ,|,U 

NU  ru<K-Fus> 

F  F  <  NU .11  . 0 . OR . MU .OF. NUMX )  00  1 0  99 


I  A  A 


I  V  >.  I  U9<N9r  1  )  .IE:  .0.  )  01.)  TO  99 
1 1 19  <  N9  •  1  )  r  ABB  (  1 09  ( NO  *  I  )  i 

I  F  (  9(1  (  I  0  »  N9  )  .  I  T  .  .  9999  .  OR  .  I  NSN  .  I.  T  .1.1)  GO  TO  99 
01 1  9(1.  (  ? » N9  )  ♦!:>  I  NFL.  I  OCt  (  •' »  NO  )  #90  L  (  7  •>  NO  >  #COSf ' I  '.’./FART  M 

If  <11  IF.  I  f  ,HM)  00  10  99 
901  UOt  NO  )  901  <  10,  NO  )  /  <  I  NON  1 
9V  OON  I  I  NIK 
100  R!  IORN 
t  NU 
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surrfhif  ini  combi nr  <n>  rs»  t  r  .k,,i. ivmx> 
common  nor  oo<  s  i .111:  (  ;>sa>  .  :i  iivco 


?  )  .n '(  .  v 


i  •  .  I  '  1  ' 


FNSFKJ  N  INTO  OKIH  Fct  |i  ARRAY  IV(K.IT) 
1.1  I  NRN  N 1W  ARRAY  AS  I  0  I  R  .  I  S  1 


I  IS 
IS  II 
i  1  I 

t  " 

on  i ■'  i  i  .i. 

II  v  I  A  l  ■  >:  I  U  (  l.lis  N  »  SO  V  .40  ,  10 
,'u  it  (  iui,  1. 1  i  .  i  ii.  o >  (.A  in  io 

10  I  0<  ,1.  I  S  >  I  O  1  I.  I  I  ’ 

.1  I' 

40  I  I 

I  0  (  .1 .  I  •  >  -  N 
40  III)  so  I  .1  y  K 

s<>  i n>:  r  ii  .  i  s >  - 1 »s  i ,  n  •< 

K  KM 

n:  (R.ni  .  iomx  >  no  in  sv 
i  v  <  i' .  rs>  o 
on  rn  no 

•'0  PR  I  N  I  I  00  .  K  .  |  OH  K 

100  I  ORMA  I  (  l::  Iv Fell Fc  TN  I  'OMIU  Nl  y  I  .4  .  I\  .  I  OMX  .  >X  y  0  I  I  0  Y 

K  IVMX  I 
HO  RF  IIIRN 
I  NO 

I 


1  40 


.4 


HPMPOOI  INF  S  I  RAK 
l  HAl.Hl  1 1  l:*0  I  HUH 
CHAi  All!  R  +  A  I  II  S  I  A  I  <:>> 

1  N  I  I  01  R*2  M  Y(Mi 

i  i-  a  i  *o  !h*a. s<<n. •, mi  ,  sa  '.sos.sc  'ySAMySAC.sMCySU  ’.sii.sc 

Cl  Al  *0  I  '.'A,  I  un,  I 'HI  .I'A"'. I'M  M'l  2,PAM,PAl',PMryPV2yF‘H»P(  «  PNOM  •  !•: 
mil  Of  0  !  Si  I  .  IM.  I  Ml  .  I  MX.  I  SI  All 

i  in. i <  I'f-ri  i  i  .i-f.-'.iii.i'ur  m  .prpi  ms.prscan.I'Rhi  apvF'RNois.nii  si . 

1  I'ROUI  R 

R'l  Al  N?  <  10).  N2S.  I  0  ■  ”  N  I'M.  NAS(  10). 

)  SUM?  I  I  in  .  SI  P  1  (  I  0  >  .SUMS  <  I  A  )  ,  SI 'PS  CIO) 

MIMFNSION  I  HI  I  kMA,4AO)»lld  (V.?Me>) 

[I T MF  NS  I  (IN  SIMS' 

SUMMON  ?  I  MAX  I'M.  I  Ml  .  I  MX 

COMMON  /Ilf  API'/  HKSM.  MS  (  2  .  M  )  .IKK  A  ,M  ) 

COMMON  .'0001  R  A  'S'  .mm  .  NSM  *  1SIK20)  .  ISHR 

COMMON  f  I  OS  '  I'RI'I  I  I  .ORSIOvpRI  IXO.pRd  US  .  PRSCAN  ,  I  Rl  IF  AM  , 

I  PR NO IS. PRO" I R 

COMMON  /MULT.'  "01  I  (  4  >  «NAC  I  I  .NT  I  S  I 

I  I IMMIIN  •'  IN  I  RS  '  NHM  I  N  .  NHMX  .  If  I  SN .  NSC  AN  .  1 1  SNI  ,  NUS  CN  -  N  I 
COMMON  /'II  [S'  I  Sf  C..IMAY,  .  HIR  . .  IM  I  N  ■ .  ISIC  .  I  PAY  .  I  HR.  IMIN,  I  SI  I 
COMMON  /NUI  IS/  NHARM  .  Nl  ARM  .  NHO  .  NF  0 .  1 1  0 . 1  0 .  10  .  JYR  .  I  HI  vKTI 
COMMON  /NHI  11/  fill  «NKN  I  p.NMiO.  F/TFI,NkMMX,  ITIIR.  K  XL  <  1  0/4  )  «IIISt 
COMMON  /PONS!  /  HMISUC?)  •  0  I  U  .  HMAO  •  VMISWM  , 7M I  V  »  AM  I  V , 
f  A  I  .A?. AS. HI  .0  '.HUTU 

COMMON  /d  SI  '  KIN.  ICI  1ST  (  ’MM  )  y  ICI  MX 

COMMON  / 1  NT/  (  OSPH  I  .SI  Nl  I  .('OSP  I  2  .  I M I N  .  I  I  AS  I  y S  P  R  M  .  I  f  X  M  X 

COMMON  /  INTI.  /  MIISN.MNSN.HM.f  NSN.INSRN.NCI  N.NI  I  N  •  M/SN  *  NNM  IN«I  I  A 

COMMON  /UVP  '  NX  (SI  >>  ,  NT<  St  2  >  .  NCX(  f  28)  «UCY<  .1  20)  ,!/CUX(  I  . 

I  I ICHY  (  I  20)  .III  Nl  I  20  >  » I.JC 2  (  1  20  )  .|ICXY(  1  20  )  .  Ill  X  ’  <  1  ?0  )  « 

I  ICY  2  (  ISO)  .  I  CP?  (  1.28)  .  ICPNT  (  ISO)  »UCITS(  ISO  )  .  U('H(  I  .'0 
S  KIM  ISO) . 1C  IKS'  I  SO) . ICTNOt ISO ) . TCTSpl  ISO) 

COMMON  /Ilf  (■/  Id  (  ISO)  .  TCHNC  ISO)  .FX(SMM)  >  F  Y  (  SMA  )  . 

1.  f  H  X  (  S  M  A  )  .  f  H  Y  (  S  5  A  )  .  I  7  (  S  5  A  )  .  F  H  (  S  5  A  )  .  F  X  Y  ('  2  S  A  )  . 

F  X?  (  SMA ) . F Y 2 ( SMA ) y I FT1/ ( SMA ) . F  HS <  SMA  )  . 

A  IF  SC  (SMA)  ,  II  NCI  SMA)  »  TFHN(  SMA  >  .  If  I'NIK  SMA  )  .  Nl  OR  (SI. 

COMMON  /I.IATAI  /  PCI  (  1.0,  ISO)  »  NCO .  NCMX  .  NR  JC 
COMMON  /HA  I  AS/  HCI  ( MS  r  4 AO ) 

COMMON  /MATAS/  U R ( A .460) 

COMMON  /HA  I  A 4/  F  d  ( 9 . SMA ) . A I  IS y  UFOS y  NF MX , NF  ARM . KNI OC ( I  OS  4 ) . Nl  I  A 
COMMON  /PA  I  AM/  NCI  .Nl  I  .  JCI  v  ,IC  I  NO  <  1  20 )  .  UCX  C  SMA  )  v  UCY  (  SMA  )  .  .11  I  . 

I  .H  T  NO ( SMA ) • WFX< SMA ) > MFY ( SMA ) . UF ( SMA ) y  I  F  MG < SMA ) . 

. ’  I  CMC  <  I  S 0  )  .  I  C /('.  (  1  SR  )  ,  N H M M 

COMMON  /Up ARM /  HX . HY . HX I  . UY I  . I MK 1 1  . TMK I  I  I 
COMMON  /FIT  TF  R  I  ATRMN .  ARC  AMN  .  CFI  MNd’I.SHMX 
COMMON  /A7F  NOS/  A  71  0  y  A7I K  .  A/RI  I  .f  COIJ. It  A  HI  .  I  RADAR 
COMMON  /RNCTR/  I  I  .  I  IT  <  S  >  .  Kl  HI  .  IN  IP.  TNI  PA  (  S  .  I  OS  4  >  y 
+  KNI PMC S) . KNI  IM  <  I  r 1  OS 4 ) 

COMMON  /WIND/  SHA d  4 , 0) , SUM (14.0), SUC  M  4 , 0 ) . 
f  MAS  <  14,0). SMS (14,0). SCS (14.0). 

+  SAM '(4,0),'  .AC (14,0), SMC  (  I  4  y  0 ) y 

F  SU2 < 1 4 • 0 ) . SM (14.0). SC (14, 8 ) , NUM (14,0) 

I  01 1 1  UAI  f  NCF  ( UCI  (1,1).  I  VC  I  (  1  »  1  )  )  .  ( I  Cl  (  1  ,  1  >  ,  IF  CL  (1,1)) 

PA  I  A  K I  Y  /  1  ,  2 ,  I  ,  AM  ,  4  r  2  «  1  «  A 1  ,  4  »  S  «  0  ,  AV  ,  4  /  «  I  Nl  T 1 1  /'SRI  If  •  S(  F< '  / 

PA  1  A  r  II  SIAI  "NFU' , '01  M'/y  II  II  S/1/, SIC,/'  ','*'/ 

PA  I  A  IONF  /I /,  ISTX/A/ 

I  ARAM!  It  R(l  IP  1.000,  FK  1000.  .  I  7MX  AO  .  Ilf'R  -M7 . 2VM78  ) 
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PAKAMf  irRo-nn  r./.:,yfi/n»Akhx  =vv,v> 

PA  RAM  I:  If  Pi  I  AM  AX  1  0OO,  AMAX  I  OOO.  > 

npfN'UNfl  M  flit  INPOI*  fOPM  '  UNf  (tPMAI  II  II 
(  SI  A  IIP'.  I  I  I  'MAI  C  If  US'  ) 

If  II'. 

PI  IJ  I  NH  A 

Nf  TA  0 

MVC  i) 

MYi  0 
1 1 MM  0 
UN'.  O 
UCN  0 
IK  S  0 
MSN  0 
NASI  A 
NAIMS'  0 
Nil  0 
Nf  I  0 
Ul  M  A 
HI  s  •  0 
III; A  <:■ 
i:isi  o 
VXA-  A 
Mr  A  0 
MXS  0 
MYS  0 
HNMM  O  . 

UNMX  0. 

YNN  -0 . 

KNN  0 . 

MNM  O. 

IK  NX  0. 

x  ( :  n  o  < 

YCN  A, 

nr am  o . 

IK  AX  0. 

XBfM  0 . 

ysp : o . 

Ilf  NM  0  . 

Ilf  NX -  A  . 

Xf  N  M.', 

Yf  N  0. 

nn  r-iyio 
n:m  i  '  o 
n:>S(  r  >  o 
n.m  i  '  o 
NXS  «  t  1  o 
SI  IMS  <  I  '  •■<). 

!.HHU  I  ' 
snr.M  I'M), 

r)  srn.w  i  '  o . 

NMMMNMMX 

II  (NMMXM  N.NUAPM)  NMMMNMMX  I 
IKI  IP'  I  I  «NI  MX 
f  X  (  .  I '  <' . 
f  Y  (  .  I  >  0  , 

P  U  X  ( .  I )  0  . 
f  MY(.I>  0. 


FZ< J)=0. 

FV  (  J  )  =0  . 

FXY( J)=0. 

FX2< J>=0. 

FY2<  J  )“<) . 

FHS < J ) =0 . 

IFSC< J)=0 
IFF'Z  ( .1 )  ~-0 
IFNC ( J ) =0 
IFVN < J ) =0 
IFTN0< J ) -0 
00  CONTINUE 
NGC  T  =-0 
NTOT =0 
NF  N--  FNSN  I  . 

HR  TM--KTL  -KILL. 

IF  (  0 FI  1H .  OT  .  0  r  VI1M“  I. .  /H FI  I  M 
I F  (  NF  N .  I  E  .  0  .  OR  .  NVM  X  .  1.  E  .  0  )  GO  TO  559 

LOOP  THROUGH  ACT  I  Of"  001  OMF  CEI  LS 

HO  TOO  NV“1 »  NVMh 

IF  CELL  NOT  UPDATFJT  THIS  SCAN  *  00  AROUNO 
IS0=0 

IF  <  IVCL<9,NV>  .I  F  .  0)  00  TO  1.02 
ICTR“  I  VCL.  ( 9  » NO ) 

JCTR-IVCL <  29 , NO ) 

IF<IVCL.<8,NV>  .I  T. 0)  IVCl  ( 8 , NO )  =-  IVCl.  ( H » NV > 
NTOT=NTOT  F  t 

IDTC-FLOAT < ICTR ) / ( FNSN-l . )*!<> . I . 5 

TEST  QUALITY  OF  REEL  AT  T  RIBS 

I F  < I VCL  <  20 , N V  > . GT ♦ 85 )  GO  TO  102 
IF<VCL<11,NV>  .1  E.O.  )  GO  TO  101 

COMPUTE  MEAN  REEL.  CELL  ATT RIBS 

DRC-- 1 .  /VCL  < 1 1 » NV ) 

VCL <11 -NO) “VCL. ( 1 1 f  NV ) / 1 Cl  R 
VCL < 12 , NV ) “VCL. < 1 2 , NV  > #DRC 
VCL. < 1 3 , NO ) “VCL <13, NO ) *DRC 
VCL. < 14, NO) “VCL <14, NV ) *DRC 
VCL  <15, NV ) »VCL < 1 5 , NV ) *DRC 
VCL  <  1 A ,  NV )  “VCl.  <  1 6 ,  NV )  *ORC 
VCL  <  .1 7 ,  NV  > “VCL < 1 7 , NV ) *DRC 
VCL< 1B,NV)“VCL<18,NV)*DRC 

COMPUTE  MEAN  SHEAR  CELL  ATT RIBS 

IF< JCTR.LT.1000)  GO  TO  90 
JCTR* JCTR-1000 
I  VCL  <  29 ,  NV )  “.  ICTR 
IS0“1 

90  IF < JCTR.LE.O)  GO  TO  95 
DTSC“ 1 . /VCL  <  30 , N V ) 

VCL  <  32 , NV ) “VCL <  32 , NV )  DWTSC 
VCL.  <  33 ,  NV )  “VCL  <  33 ,  NV  >  KBTSC 
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v r: l  (  34  »  nv  )  - v r i  ( 3 4 .  n v  >  * n  i  s c 

dtsc- =1  ./<jc tell sin 

VCL  ( .50  *  NV  )  =VCL  (  30  .  NO  >  *UTSC 
VCL  <  31  .  NO  5  on.  (  31 .  NO  )  *DTSC 

COMPUTE  MEAN  COMBINED  (H  U.  A I  I  k  IBS 

9  5  DC  0=1.  ./(  I  CIBE  JCTE) 

i  s o n  r = v c: i  <  2 3 »  n  v  >  *  bo  1 :  *  u 

L  F  <  T  S 0  N  T  .  0  1  ,0,1  0  C I  (  2  3  -NO)  =  1.0  .  **  <  T S 14  N  I  ) 

v=vct  <24.nv>*dcc 

V2=VCL<25.NVnKBC( 

ns-ycL.  c  26 .  no  )  *uu 

:i f ( :i s h r . n f , 5 i  n s ■- s o r kb s > 

DEL  UP- VCL  (  27  *  NO  1  #Bi .(' 

y  a  r  =  a  b  s  ( y  2  -•  y  *  y  > 

VCL  <  25  v  NO  )  -SORT  ( VAR  ) 
y CL (26. NO) -us 
VCL ( 24 . NO ) =V 

Z=yct..(  1.1.  »NV ) 

X=VCl  ( 1.2.NV ) 

Y--VCL  (  I  4  .  NO  1 
XL" VCL ( 49 . NV ) 

YL"VCL ( 50  »  NV  > 

VXYP"  X*  Y 
VXB2=X*X 
0 YB2"Y# Y 

VVZE<=VCL(23.NV>*Z 

IZPK=IVCL(?O.NV> 

HSHT-VCL ( 22 . NV ) 

IF  CELL  FOUND  ON  I  7  40%  OF  SCANS.  NO  SPREAD 
I  VCL  (  43  .  NV  )  -- 1  BTC 

I F  ( I C  T  R  .  6  E  .  4  )  V  C  I...  (  4  2 .  N  V  1  =  V  C I  <  1. 3  .  N  V  1  •••■  V  X  B  2 i V  C I  (  :l.  5  .  N  V  )  V  Y  B  2 
INTER=0 

TEST  FOR  NOISE 

1 )  CELL  AREA  LT  CELMN 

2)  1ST  ELFV  SCAN  ONLY 

3)  1ST  OBSERVATION 

RES~VCl..  (  4  .  NV  )  /VCL  <  7  .  NV  ) 

I ADR"! SOil 

T.F  (  RES  .  I.  E  ,  CEL  MN  (  T  ABR  1  ,  ANB  .  ICTR  ,  I  .E  .  1  .  AND  . 

1  IV C l  <  5 3 . N V ) ,  I  . .  E . 0 )  I N  T E R  =  1 

TEST  FOR  DOPPLER  NOISE 

1 )  BOR  SRD  07  90%  MAX 

2)  REEL  IT  40  DBZ 

ZZZ-lO.HcAl  001.0(7) 

IF  (  VCL  <  26  .  NV  )  ,  Ok  .  SVhX  .  ANB  .  777  ,  I  T  .  40  .  )  INTER-- 2 
[F ( VCL ( 19 . NV '  ,  I  r- 10,  .AND.  INFER. I  1.1)  00  TO  30 

EXCLUDE  RFJECTEB  CEILS  FROM  CONTOUR  ASSOCIATION 

IVCl  (51 » NV ) =0 
00  TO  31 
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PREPARE  FIXED  CONTOUR  TRACK  DIRECTORY 


•TO  KNID=IVCL<37»NV> 

IF (KNID  ♦  L.E  *  0  .  OR  .  KNl'D  .  GT  . NKDMX  )  GO  TO  31 
NF=KNIDC ( KNID ) 

I F ( NF . LE . 0 . OR . NF . 6 T . NF  MX )  GO  TO  3 1 
I VCL ( 37 .NO) =NF 
MF=IVCL.(5.l .NO) 

I F  (  M F  .LE.0.0 R  .  MF  .  G  T  . .  IF  L. )  G 0  T 0  3 2 
MF' 1.  “  I FCL  <  9 » NF  ) 

IF  <MF.FO.Mf  1  )  GO  TO  32 
IF(MF1 .GT.O.AND.MF 1  .LE.JFL)  GO  TO  33 
I FCL ( V . NF ) =  MF 
GO  TO  32 

33  I F  ( U F  ( M F  )  .  1.  T  .  U F  <  M F 1  >  )  GO  TO  34 
I  FCL.  (  9  .  NF  )  ~MF 

MF-MFt 

34  MF  :l  =  I  FCL  <  7  » NF  > 

I  F  (  MF  L  .  GT  .  0  .  AND  .  Ml  1  .  L.E  .  JF I.  )  GO  T  O  35 
I  FCL  (7.  NF>  =  MI- 
GO  TO  32 

35  NFL=IFMG(MF1> 

I F"  <  NF"  1 .  L E .  0 .  OR .  NF .1. .  G T  .  NF M X )  GO  TO  351 
I f  ( FCL. ( 5 . NF  )  . LE  . FCL  ( 5 . Nl  1 )  )  GO  TO  352 

351  IF  MG( MF1 )=NF 

352  IF <MF.F0.MF1 )  GO  TO  3? 

IF(WF(MF) .LT.WF (MF1 ) )  GO  TO  32 
I  FCL.  <  7 .  NF )  ~MF 

GO  TO  32 


CELL  NOT  IN  CONTOUR.  SET  NF=0 

31  I VCL..  ( 37  » NO )  -0 

NORMAL  UPDATE .  INITIALISE  VELOCITY 

32  I VCL ( 44 » NV ) -0 
IVCL <  45  «  NV ) =0 
I  VCL.  (  46  .  NV  )  =0 
VTX-VCL <  47  » NV ) 

VTY=VCL.  (  48 » NV  ) 

VXT=VTX 

VYT“VTY 

IVCAI.  =0 

IF  <  IVCL.  (53.NV)  .ECI.0  .OR.  DEL  TM  .  EG  .  0  )  GO  TO  40 
CELL  UPDATED.  MAKE  POSITIVE  SET  ON  CELL  COUNTER  INCREMENT 
IVCAI  -1 

vxr-(x  xi  >*vnM 

VYT  =  <  Y-  YL. )  *VDM 
VCL ( 45 » NV ) =VXT 
VCL  <  46. NV>=VYT 

TEST  VELOCITY  AGAINST  EXPECTED  VELOCITY 
NTEST=. TRUE . 


1.53 


If  (NT  ESI >  GO  10  40 
K  TV=IVCL.  <53*NV) 

IF  (KTO.GT  ,  4)  MV  4 

FF(DELLI.LE  .3.  >  GO  10  40 

00=  AUS  <  OCL  (  45  *  NO  )  OI  L  <  4  '/  »  NO  )  ) 

IF- (AO.  Ltd  0  DM)  GO  TO  3  22 

IF  (  AO .  GF  •  ADS  (  OCL  ( 47 » NO  >  >  ifcODPT  ( KTO )  )  GO  10  321 
522  00  A DS ( OCL ( 46  . NO  )  OCL <  4R  . NO  )  ) 

IF  (00.  L  E .  A I< S  (  0 C L  ( 48 .  N 0  )  )  * 0 D P  F  (  K  1 0  )  )  G 0  I  0  4 0 

IF  0 F l OC I  I Y  100  I  A k G F  *  D R 0 f  FROCK 

.5  2  1  OXT-OX 

OCL.  (  47  »  NO  ) 0 X 
OYT-OY 

OCL ( 48  *  NO ) =0Y 
OCL  (  45  •  NO  )  «=<> . 

OCI (46, NO)  0. 

OCL < 49 , NO ) =0 . 

OCL  (  50  .  NO  )  -.() , 

1 00 1.(5  3.  NO)  =0 
TOCI.  (  44  »  NO  )  5 

OCL (41 .NO) -TOC!  (8. NO) 

TOCAl.-O 
NT -NTT  I 
I OCL ( 8 «  NO ) -NT 


IJR  D  OFF  BM  0  0 1  H  E  D  I  R  A  C  K  I  N  G  OF  LOCI  I  Y 

IF  NO  CELL  UPDATE'  DEFAULT  FT)  PRIOR  SCAN  VELOCITY 

40  OCI.  (47»N0)"A  I  l.*0X!+A2*00L  (  4  7  .  NO  )  f  A3*0X 
OCL.  (  48  .  NO  )  =  A I  *OYF  f  A2*0(T  .  (  48  .  NO  )  LA. 5*0 1 
OXN-OCl.  (  45 » NO  ) 

OYN=OCL  (46. NO) 

REJECT  DOPPLER  NOISE 

f  F  (INI  F  R  .  F  0 . 2  )  G  0  I'  0  5  8 0 

REJECT  SURFACE  HEIGHT  OF  10  KM 

I F  (  OCI.  (IV.  NO  )  .  OF  .,10.)  GO  TO  582 

REJECT  NOISE 

IF  ( INFER .GF  . I >  GO  JO  583 
I F  ( N 0 S C N .  I  F  .  I  >  G 1 1  TO  5  ? 

GROUND  CLUTTER  TEST 
1.)  VELOCITY  NEAR  0 

2)  FOUND  ON  I...I  207.  OF  SCONS 

3)  VELOCITY  UPDATED  (TRACKED) 

IF  (ABB  (  OXN )  .  I  E  ,  .  0002  ,  AND  .  ADS  (  OYN  >  ,  L.E  .  .  0002  .  AND 
l  .  IDTC  ,  L  E  .  2  .  AND  .  FOCAL  .  EO  ,  1  )  GO  TO  58.1. 

EXCLUDE  CELLS  WITH  EXT  REAM  ATTRIBUTES  FROM  AOG  OF.L. 

IF( FOCAL. EO.O)  GO  TO  57 
I F  < I ZPK .G!  . I/MX)  GO  TO  57 
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IF  (IVCL.<38,NV)  .NE .  0 . OR . IVCL < 52 , NV )  .NE.O)  GO  TO  5 
IF <  VCL. < 1 9 1  NV ) . GT . HM )  GO  TO  57 
IF  <VCL<42»NV)  .GT.SPRM)  GO  TO  57 


SUM  VELOCITY  VALUES 

NSN-NSNF1 
VXC-VXC+VXN 
VYC::':VYC+ VYN 
IVCL  ( 44 » NV )  -••■1 

NORMAL.  PROCESSING  ON  ACTIVE  (UPDATED)  CELLS 

57  NACT -NACT +1 

N  A  C  T  V  "■  N  AC  T  V  El V  C  A  L. 

I F  ( I VCL  <  44 . NV ) .  I.  T  ,  2  >  I VCL  <  44  » NV  )  - 1  VCl.  (  44  *  NV  )  f  1 

UX ( NACT ) "X 

UY ( NACT ) ~Y 

VXA-VXAFVXN 

VYA-VYAEVYN 

I  st:  1=0 

SUM  SPREAD  AND  TRACK  ERROR  ON  UP DAT TED  CELLS 


I  RE  .J;~  I  VCL  <  4  4  >  NV  > 

IF  <  IRE  J  *  EO .  .1 )  GO  TO  610 
SPD'-VCL  (  42  »  NV ) 

DX--(XLfVTX*DELTM)~X 
DY-<  Yl.+VTY*DEL.TM) -Y 
DXY=DX*DX  F  DY*DY 
I  AGE=I  VCL  <  53  *  NV )  F  :l. 

IF  < I AGE .I  E . 1  .OR.  IAGE.GT. 10)  GO  TO  410 
IF< TREJ.E0.7)  GO  TO  609 
IF( IREJ.NE.3)  GO  TO  410 

SUMS ( I AGE ) = SUMS ( I AGE ) +DXY 

S P D 3  <  I A G E  )  =  S P D S  ( I A G E  )  +  S P D *8P D 

IF  (  SF'D .  GT  .  0 .  )  NSS(  I  AGE  >  =NSS  <  I  AGE )  + 1 

NS  < I AGE ) =NS ( I AGE ) f 1 

GO  TO  410 


409  SUM2?  <  I  AGE  )  =SUM2  <  I  AGE  >  +DXY 

SPD2 ( I AGE ) ~SPD2 ( I AGE ) +SPD#SPD 
IF (SPD.GT.O. )  N2S ( I AGE ) =N28 < I AGE ) FI 
N2  ( I  AGE  )  ~-N2  ( I  AGE  )  + 1 


410  CONTINUE 


DEFINE  A  SIGNIFICANT  CELL  < 1 VCL ( 8 > NV ) . IT . 0 ) 
IF  ( ICTR.I  F.  I )  GO  TO  411 

IF  < ( I DTC . GT . MNSN . AND . I VCL ( 1 0 » NV  > .GT.MHSN 
*  . AND . VCL ( 4  2 » NV ) . LE . SPRM ) 

F  . OR . (I ZPK . GT . MZSN . AND . I DTC . GE . S 

+  . AND . I VCL ( 1 0  f NV ) , GT . 0 ) ) 

+  I VCL <  8 » NV ) ~~ I ADS < I VCL ( 8 » NV ) ) 


FIND  BASE  CLUSTER  ID  <ICLT> 
All  I CL- 1 VCL ( 38 *  NV ) 
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6  :i  :r.  r  (  i  c  i  . .  i.  e  .  o .  o  r  .  i  c  i. .  o  r .  i  c  i  n  )  o  o  i  o  6  ? 

iclt=icl  ist<  icd 

IF (in  T.EO.O)  GO  TO  62 
ICLA=IABS(ICL.T> 

IF  (I  Cl  A.EG.ICL)  GO  TO  63 
I  Cl  ."  I  Cl.  A 
GO  TO  61 

TEST  IF  CELL:  ASSIGNED  CLUSTER  III  ON  PRIOR  SCAN  (  ICL.T  .  I.  T .  0  ) 
NOT  IN  A  CLUSTER (I CL T.EO.O) 

ASSIGNED  CLUSTER  ID  ON  CURRENT  SCAN' I CL  I .Gl .0) 

63  IFClCi  n  64  *  62  *  65 

CELL.  NOT  IN  CLUSTER*  TEST  FOR  ISO  S 1 G  Cl  I  I 

62  I VCL  <  52  *  NO )  ~0 
I  VCL. ( 38  *  NO ) ~0 
ISET--1 

I F  <  I  DC  l .  <  8  *  NO  )  .  1.  T  .  0  )  G  0  T  0  6 7 
GO  TO  70 

1ST  TIME*  SET  CLUSTER  ATTRIBUTE  VALUES  POSITIVELY 

65  I  CL  I  ST  (  I  CL  )  I  CL  1ST  ( I  Cl  > 

67  NCL=NCL El 

I  VCL.  <  30  *  NV )  --(> 

I F  < I SET . EG  *  0  >  I VCL <  30  *  NV  >  =NCL 

OCX  ( NCL.  >  ~X 

UCY  <  NCL. )  -Y 

UCN<NCL>=1  I SET 

UCZ ( NCL  > "3 

UCVX  <  NCL ) "VXN 

UCVY ( NCL ) "VYN 

ICVN ( NCL ) "I VCAL 

UCXY ( NCL ) "VXYB 

UCX2(NCI.  )=VXf(2 

UCY2  ( NCL. )  “VYB2 

I CPZ  ( NCL. )  ~  I  ZF'K 

IF  ( I  SET  .  EG .  0 )  TOP  NT  ( I  CL  )  NCL. 

UCHS  <  NCL. )  -HSMT 

IJCV  (  NCL. )  =WZB 

ICTK  <  NCL. )  "I VCL.  <  52 * NV ) 

ICTK2  ( NCL. )  "0 
I CF  <  NCL. ) "  I VCI...  ( 37  ?  N'T ) 

GO  TO  70 

INCREMENT  CEI  L.  COUNTER  AND  SUM  ATTRIBUTES 

64  NC"ICPNT  (  I  CL. ) 

I  VCL.  ( 30  *  NV  >  ~0 

IF  <  NC . LE *  0  *  OR . NC . GT . I  CL  N )  GO  TO  70 
IJCN  (  NC  )  "UCN  (NO  T  I.  . 

I VCL ( 30 » NV ) "NC 

IF  ( ICF  (  NC  )  .IF  .  0  )  I  CF  (  NC  )  "I  VCL.  (  37  *  NV  ) 

IF  <  IVCl..(  37  *NV  )  •  LE  .  0 )  I  VCL  ( 37*  NV ) -ICF  (NC  ) 

OCX ( NC ) "OCX ( NC ) + X 
UCY ( NC ) "UCY ( NC ) IY 
UCZ ( NC ) "UCZ ( NC ) +7 

ucvx  (  nc  )  =ur.;vx  (  nc  )  fvxn 
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ucvy  (  nc  >  -ucvy  (  nc  )  evyn 

I  CVN  <  NC  )  =  I  CVN  (  NC  )  +  TV  CAL. 

i:  CP 7  <  NC  >  -MAXO  ( 1  CP 7  (  NO  *  I/PK  ) 

If  ( I  CP/ (NO .EG.IZPK)  ICF(NC>=IVCL<37»NV> 

IICXY  <  NC  >  -IJCXY  ( NC  )  EVXYB 
I ICX2  (  NC  >  --UCX2  (  NC  )  EVXB2 
UCY2  ( NC  >  “IJCY2  ( NC )  +VYB2 
UCHS  <  NC  )  -AMAX 1.  (  UCHS  (  NC )  »  HSMT  ) 

UCV  (  NC  )  'UCV  <  NC  )+WZB 
MO  I  VOL  ( 52 »  NV  ) 

If  (MLME.O.OR.MC.GT.JCE)  GO  TO  70 
MC I  :  fCIK(NC) 

II  (MCI.  .EG.  MC)  GO  TC)  70 

If  (MCI.  .GT.0.AND.MC1.LE, JCL)  GO  TO  6  6 1 

t CTK  < NC )  -MC 
GO  10  70 

66  I  1 1  (  I  C 7 1  (  M I  )  ,  L  T  .  I C 7 C  <  M C 1  )  )  6 0  T 0  662 
in  IK  (NO  MC 
MI  MCI 

66?  MC I  I C I K 2 ( NC > 

I  F  (  MC  I  .  GT  .  0  .  AND  .  MC  1  .  I  E  .  JCL. )  GO  TO  663 

ICTN2(NC)-MC 

GO  TO  7() 

663  ICMG(  MCI  )~NC 

If (MC.EG.MCI >  GO  TO  70 

IT  <  iCZC  (  MC  >  ♦  L  T  .  IC7C  ( MC  I  )  )  GO  TO  70 

fCTK2(NO=MC 

PTXEB  CONTOUR  ATTRIBUTES 
70  NF  --1V0L  ( .V7  *  NO  ) 

I F  ( N  F  . L E . 0 . 0 R - N E , 0 1 . NFMX )  G 0  1 0  LOO 
f  F  (  I  F  C  L  .(8  •.  N  F  >  .  G  T  .  0 )  G  0  T  0  7 1 

1ST  OCCURENCE »  STE  ATTRIBUTES  POSITIVELY 

ff  CL  <8>NF>=1 
FX(NF)=VCL(12»NV> 

FY ( NF ) ~Y 
FOX  (  NF  )  “-VXN 
FVYLNF ) ; VYN 
IFVN(NF)~IVCAL 
F7 <NF)~Z 
FV  ( Nf  >  ~VVZB 
FXY(NF)=VXYB 
FX2(NF)=VXB2 
FY2(NF  VYB2 
I FP7 ( NF  > “I  7PK 
FHS ( NF ) =HSMT 
1  FBC, ( Nf  )-0 

IF  ( I  VC  l  ( 8 1 NV )  .  L.  1  . 0 . AND .  I VCL.  <  38  *  NV )  .EG.O)  IFSC<NF)  =  1 
I  f  NC  ( Nf  )  “0 
GO  TO  100 


INCREMENT  CELL.  COUNTER  AND  SUM  ATTRIBUTES 

71  I  t  Cl  (  H »  NF  )  -  IFCI  (LUNF  )  t  I 
f  X  (  NF  )  -I  X  (  Nf  )  EX 
f  TINT  >  =F  YINFHY 
f  OX  <  NF  )  F  VX(NF) EVXN 
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F VY  <  NF  >  =FVY  <  NF ) +VYN 
I F VN  <  NF )  -IFVN  < NF  )  T 1 VCAL 
FZ<NF>=FZ<NF)+Z 
FV  <  NF )  =FV  ( NF )  + VVZB 
FXY  ( NF  )  =FX  Y  ( NF )  +VXYE< 

FX2 ( NF ) =FX2 ( NF ) +VXB2 
F Y2  <  NF ) =F Y2 ( NF ) +VYB2 
IFF'Z  ( NF )  ~MAXO  <  IFPZ  <  NF )  * IZPK  > 

FHS ( NF ) =AMAX 1 <  FHS <  NF ) * HSMT ) 

IF  < IVCL  <8*NV  > .LT . 0. AND . IVCL  <  38  >  NV ) .EQ  .0 ) 

+  IFSC  <  NF )  =  IFSC  <  NF ) +1 

go  ro  loo 

r, 

C  BOP  SPREAD 

C 

580  IVCL  <  44  *  NO ) ~6 
IVCL  <  38  *  NO  )  5=0 
GO  TO  100 

C 

C  GROUND  CLUTTER 
C 

581  IVCL  <44* NO) ~7 
IVCL  <38  *NV  )=--<) 

NGCT“NGC T+l 
GO  TO  100 

C 

C  BASE  TOO  HIGH 
C 

582  IVCL < 44 * NV ) =4 
IVCL  <  38  *  NV ) ~0 
GO  TO  100 

C 

C  NOISE  FLAG 
C 

583  IVCL  <  44  > NV ) =5 
IVCL  <  38  *  NV ) “0 
GO  TO  100 

C 

C  REFL  VALUES  OUT  OF  RANGE*  DO  NOT  UPDATE  CELL  THIS  SCAN 
C 

101  IVCL(9*NV)-0 
C 

C  CELL  NOT  UPDATED*  CLEAR  CLUSTER  POINTER 
C 

102  IVCL ( 37  *  NV ) =0 
IVCL.  ( 38  *  NV )  =0 

C 

C  END  VOLUME  CELL  LOOP*  FLAG  ISOLATED  TS  CELL  ASSOCIATION 
C 

100  IVCl.(40*NV)  -ISO 


17M 


COMPUTE  CLUSTER  ATTRIBUTES  A NU  NEAREST  NEIGHBOR  DISTANCES 


CALL  CTRAK 

IF  ( NACT  . GE  .  NNMIN )  CAL  L  NEARN  ( I.JX  »  UY  » NACT  » DNN » DNS » XNN ,  YNN »  DNMN .  DNh" 
COMPUTE  AND  OUTPUT  FIXED  CONTOUR  ATTRIBUTES 
CALL  FTRAK 


l‘p8 


IF (NTOr  . LE.O)  GO  TO  541 

I F  <  PR  CELL  .  OR .  PRS I G )  UR  I TE  (6.1001)  <  H 1  <  I .  I  SHE )  .  .1  = 
+  ( H2 ( I . ISHR ) . I- 

+  (H3<I,ISHR).I= 


1  »  3  )  . 
1  i  3  )  • 
1.3) 


1001  FORMAT <//»: 1. X.  '  VOLUME  CELL  OUTPUT'/./ 

1  ,1X.'  CENTRO ID  -  -  Z  -  -  HOT  ' 

2  » ' VBAR  CELL  SPACIAL  ('.A3.')  '.A3.2X.A3,'  RAD  CS  CN  D  R 

3  .IX.'  TRK  E.  N.  AV  PK  LU  HI  L  M  H  ' 

4  .'EM/S  NM/S  SPED  A  ('.A3.')  '.A3.2X.A3.'  SPD  TE  TE  0  E 

5  .IX,'  NO  KM  KM  DB  DB  DB  DB  UNI' 

6  ,'  OLD  ID  KM  KM2  ('.A3,')  '.A3.2X.A3,'  M/S  NO  NO  P  I 

c: 

C  OUTPUT  VOLUME  CELT.  ATTRIBUTES 

C 

DO  150  NV=1»NVMM 
I F  ( I VCL ( 9 , NV ) . LE . 0 )  GO  TO  200 

IF  (  .NOT.PRNOIS  .AND.  I  VCL.  ( 44 ,  NV )  .  GT .  3 )  GO  TO  58 

VX1 --VCL  (  45 ,  NV )  #FK 

V Y 1 “VCL ( 46  »  NV ) *FK 

VX2=VCl.(47»NV)*FK 

VY2=VCL(48,NV)*FK 

I  ZVAL®  1 0  .  * ALOG 1 0  ( VCL  ( 1 1 ,  NV )  ) 

ARE  A= VCL.  ( 17 ,  NV ) 

C 

C  LOOKUP  TRACK  ID'S 
C 

IF  XN0"0 

NF-IVCL ( 37, NV) 

IF  ( NF  .  GT  .  0  .  AND  .  NF  .  I..E  .  NF  MX  )  IFXNO=IFTNO  ( NF  > 

ICXN0=0 

I CL.=:  I  VCL  ( 38 ,  NV ) 

IF  (I  CL. .  GT  .  0 .  AND .  I  CL .  LE .  NIT... )  I CXNO- 1 CTNO  ( I  CL. ) 

I TRK NO® LADS < I VCL ( 8 , NV ) ) 


C  HANG  SIGNIFICANCE  FLAG  ON  AGE 
C 

I  VCL.  (53,NV)-"I  VCl  ( 53 ,  NV )  + 1 
I AGE  ® I VCL ( 53 » NV ) 

IF  ( I  VCL.  ( 8 ,  NV )  » L.  T  .  0 )  I  AGE®- 1  AGE 
C 

C  HANG  CONTOUR  TRACK  EXTRAPOLATION  FLAG  ON  ASSN  COUNTER 
C 

NT8HT“I  VCl  ( 29 ,  NV )  + 1  VCl.  (  40 ,  N  V ) 

NREHT=IVCL.(9»NV>  -IVCL.  (40.NV) 

NASSN  =NREH  r*l..n +NTSHT 
IF  < IVCL (51 ,NV) . LT .0)  NASSN®  NASSN 
C 

C  OUTPUT  VOLUME  CELL  DATA  TO  SORT  ROUTINE 
C 

SHRT®VCL (23.NV) 

SHR2=VCL.  (  26 » NV  ) 

IF  ( ISHR  .  NETS )  GO  TO  56 

SHR2=SHRT 

SHRT  ®VCL ( 26 » NV ) 


56  WRITE! 3)  KTL , IZVAL , VCL ( 1 2 , NV ) ,VCL(14,NV) .VX2.VY2, 

1  AREA » VCL ( 1 0 , NV ) , VCl  ( 42 , NV  > . 

2  SHRT  » VCl  ( 24 , NV ) , SHR7 « 


159 


r 


3  NASSNr IAGE»I TRKNU, ICXNOr IFXNO, 

4  ISIX 
C 

c:  OUTPUT  ALL.  CELLS  ON  PR  CELL 

C 

IF <  F'RCELL. )  GO  TO  59 

c: 

C  OUTPUT  ONLY  SIB  CELLS  ON  PRSIG 
C 

IF < ♦ NOT .PRSIG )  GO  TO  58 

t  f  <  :r  or, i  <  8 ,  no  > .  be  .  o  >  bo  to  so 

59  ISIG=l 
C 

I F  < I  OCL  <  8 » NO )  .  I  T  .  0  )  I S  I  B - 2 
I  X"  OCl  <  I  2  *  NO  ) 

I Y-UCL.  <  :l.  4  » NO ) 

.1 HB-OCL  <  1 9  *  NO ) 

I HM-~OCL  (18*  NO ) 

.1  MS = OCL.  ( 22  »  NO ) 

IF  < AREA ♦ GT , ARMX )  ARE  A  - ARM X 
C 

C  HANG  CONTOUR  TRACK  EXTRAPOLATION  FLAG  ON  IFXNO 

c: 

I F  ( I  OCL.  <51. » NO)  .  L.  T  ,  0 )  I F  X  NO = ■•••  I F  X  NO 
IF< ITRKNO.LT. IAMAX)  BO  TO  53 
I TR= I TRKNO/ I AMAX 
I  TRKNO-ITRKNO"  ITFOKIAHAX 
53  CONTINUE 


C  IF  CELL  TRACK  PROPPED  DUE  TO  EXCESSIOE  OFT  0(1 TY 
TAG  CEI  L  WITH  PRIOR  TRACK  IP 
C 

IF  ( I  OCL.  <  44 ,  NO  )  .NE.3)  GO  TO  55 
0Y2=0CL.  <41, NO  ) 

0X2-IF  :IX<0Y2/AMAX) 

0Y2-0Y2-0X2* IAMAX 
55  CONTINUE 
C 

C  OUTPUT  OOLUME  CELL  SUMMARY 
C 

WRITE.  <  6 , 1.005 )  ITRKNO»SIG<  ISIG  )  ,  IX,  IY, 

1  1 2  OAI  1 1  OCL  <  20 ,  NO  )  ,  I  OCL.  <  3  ,  NO  )  ,  I  OCL.  <  2 1  ,  NO)  , 

2  I HP , IHM , I H8 ,0X2 , 0Y2 . OCL  <  42 , NO ) , AREA , 

3  SHRT ,  SHR2 ,  OCL.  <  24  ,  NO  >  ,  OCL.  <  25 ,  NO )  , 

4  I CXNO , I FXNO , NT SHI , NREHT , I OCL ( 44 , NO  > 

C 

1005  FORMAT  (  1.  X  ,  13  ,  A1 , 21 4 ,41 3  «  312 , 2F5 . 1. ,  F  5 .  2 ,  F  4 . 1 , 3E  5. 1 ,F4. 1  ,213 
C 

C  SAOE  PHYSICAL  ATTRIBS  AND  TRACK  IP'S  FOR  NEXT  SCAN  ASSN. 

C 

58  OCL.  <  49  , NO )  -OCl  <  1  2 ,  NO  > 

OCL. <50, NO)  -OCl.  <  14, NO) 

I  OCL  <  5 1 ,  NO )  I  OCL  <  37  ,  NO  > 

I  OCL.  <  52 ,  NO  )  - 1  OCL  <  38 ,  NO ) 

c: 

OR  < 1 , NO ) "OCl  < 12, NO) 

OR  <  2 , NO ) "OCL <  I 4 , NO ) 

OR  <  3 ,  NO )  --I20AI . 

OR  <  4 , NO ) -OCL  < 1 7 , NO ) 

OR <5, NO)  =OCt.  <  18, NO) 


3 1. 2 ) 


j 


I 


1  AO 


MR  <  6  ,  NV )  =VCL.  <  6,  NO) 


1./ 

C  CLEAR  CELL  ACCUMULATORS 

C  LEAVE  CELL  RASE  AND  TRACK  ATTRIBUTES 

C 

M)  41  1=9. 4 6 
41  IVCL.  (  I » NV )  =0 
BO  TO  150 
C 

c:  CEU  NOT  UPDATER,  CLEAR  NV  SLOT  FOR  A  NEW  CELL 

C, 

200  CONTINUE 

IT  <  IVCL.  (  53 ,  NV  1  TE.  0)  00  TO  150 
DO  160  L-t  .51 
1  AO  IVCL  < I » NO ) » 0 

NVMIN  Ml  NO  <  NV .  NL'M  I  N  ) 

150  CONTINUE 
C 

C  OUTPUT  Cl  USTER  ATTRIBUTES 

C 

CALL  com 

c 

C  COMPUTE  AVG  CELL  VELOCITY  OF  ENTIRE  SCAN 
C 

IF  ( NSN  .HI.  0)  GO  TO  541 
VN=NSN 

IFLNSN.LE.  10)  GO  TO  54.1 

IF  <  NACT .LT  .10)  GO  TO  541 

IF < VN/FLOAT < NACT ) . LT . FNSRN >  GO  TO  541 

VX=B1*VXC/VN+B2*VX 

v  r  b  i.  *  v  y  c  /  vn + » ; » *  v  y 

c: 

C  UPDATE  DEFAULT  VELOCITY  ON  SCAN  WITH  MAXIMUM  NUMBER  ACTIVE  CELLS 
C 

IF <  NACT . LT . NACTT )  GO  TO  54 

NACT  T»-N  ACT 

VXI=VX 

VYI-VY 

NTEST". FALSE. 

GO  TO  54 
C 

C  NO  CELLS  UPDATED  CURRENT  SCAN,  RESET  TO  DEFAULT  VELOCITY 
C 

541  VX-~VXI 
VY=VYI 

NTEST  = . TRUE . 

C 

C  INITIALISE  CELL  TRACK  WITH  DEFAULT  VELOCITY 
0 

54  DO  43  1=1 , NVARM 

IF < I VCL ( 53 » I) . GT . 0 ) GO  TO  43 
VCL.  (47,1)  =VX 
VCL  (40,1) :-VY 
43  CONTINUE 
VXP=VX#FK 
VYP--VY4FK 
C 

C  COMPUTE  MF  AN  SQUARE  SPREAD  X  TRACKING  ERROR 

C 


.1.61 


DO  46  I A= 1,10 


i:  F  (  N2  <  i a  ) .  eq  .  o  >  no  I  0  40 
SUM  2  (I  A  )  ■-SORT  (  SUM  2  ( I A  )  /  NO  (  I  A )  > 

IF ( N2S ( JA ) .GT.O>  SPD2 ( I A ) =BOR I !SPB2<IA)/N2S< IA) ) 

45  CONTINUE 

I  F  <  N  3  <  I A  >  .  E  Q .  0  )  G  0  I  0  4  A 
sum;* < ;i a ) “'Sort < sum;? <  i a ) /N3 t  :i: a > ) 

IF  ( N3S  ( I A )  .GKO)  SPD  3  !  I A  )  -SORT  <  SPD  3  <  I A  )  /N3S  (  T  A  )  > 

C 

C  COMPUTE  NEAREST  NEIGHBOR  DISTANCES  ON  t 
C  I )  SC ' s 

C  2)  CLUSTERS 

C 

46  CONTINUE 

I E  <  NCI.  .  BE  . NNM I N )  CALL  NEARN<WCX»UCY»  NCI..  *  DCN  *  DCS .  XCN »  YON  ,  DCNM  *  DC N  >' 

I F  <  JCL  ♦  GE  .  NNM  I N  )  CAL  I  NEARN  (  UCX . UCY » JCL  v  DC  A  .  DSC .  XSC  »  YSC »  DC  AM  >  DC  AX  ) 
C 

C  OUTPUT  SCAN  SUMMARY 

C 

559  CONTINUE 

II ( .NUT. P R H E A D )  GO  TO  54 9 
WRITE ! 6 » 100?) 

1003  FORMAT  ! ///IX . '  VOL  HHMM  AREA  WFI.UX  NEAR  NEIGHBOR  ' 

1  . '  ACT  NO  NO  VELOCITY  TRK  CLS  CNT  G  OVER'/ 

2  .IX.  '  S  C  A  N  K  K  M  2  K  M  T  /  H  C  E I  I ...  C I  S  T  C  0  N  T  ' 

3  .  '  VCl  CS  EC  EM/S  NM/S  NO  CTR  CTR  C  '  ) 

C 

I  J-:;  <  10+ JO  )♦.!+.  9 
NVO=NVO# . 1 L . 9 
NCO-NCO* . 1+  .  9 
NF0=NE0#.l+.9 
I C 0=1 CO*. If .9 
C 

WEI  TE  (  A .  1.004  )  NVSCN .  JHR .  JM IN .  ARCS .  WF  CS  .  DNN .  DCN . 

1  DFN  ,  NACT  .  NCI. .  Nf  I  » VXP .  VYP .  NT  .  NCl.N .  NELN  .  NGCT  .  NVO  .  NCO .  NEO  . 

2  ICO.IJ 

1 004  FORMAT < 1 X . 1 4 . 13 . 2 .12,2. F5 . 1 . FA . 2 . 3E5 . 1 . 1 4 . 2 1 3 . 2F5 . 1 . 

1.  3 1 4.  A 12) 

0 

WRITE! A » 1006 ) 

.1006  FORMAT!  '  0 '  .  'AGE  UPDATTED  REJECTED'/ 

+  7X . ' CELL  TRK  AVG  CELL  TRK  AVG  / 

+  /X.'CNTR  ERR  SPD  CNTR  ERR  SPD') 

C 

DO  49  I A ”  I. .  10 

WR I TE ! A » 1 007 )  I A . N2 ( I A ) . SUM 2 ( T A ) . SPD 2 ! I A ) . 

+  N3 ! I A ) . SUM 3 ! T  A ) . SPD 3 ! I A ) 

49  CONTINUE 

1 007  FORMAT ! 1 X . 1 3 . 2 <  3X . E4 . 0 . ES . 1 . F5 . 2 )  ) 

C* 

C*  COMPUTE  BACKGROUND  WIND 

C* 

I E ! PRHEAD )  GO  TO  549 
WRITE! A. 44) 

44  FORMAT! '0  A/MU  I H  HT  DIR  MAG  VX  DEV  VY  DEV  CNTR  DEL'.' 

*  2X  t ' RANGE  KM  DEG  M/S  MS  M/S  MS  M/S') 

C 

C  LOOP  THROUGH  EACH  A/MU  III  OCTANT 
C 

DO  47  J=1 .8 
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I0H=J*45 

I0L=I0H-45 

LOOP  THROUGH  EACH  AL  TITUDE  STEP 

DO  48  N~1 t 14 
NP-NUM ( N . J ) 

IF <NP. LI. 10)  GO  TO  52 

ANP”NP-2 

DNP=1 ./NP 

A~SIN(EL. ) 

B-COS ( EL ' *008 ( A/ ) 

c=cos(El>*sin<az> 

V -RADIAL  VELOCITY 

PA2~SA2(N* J) 

PB2*SB2<N» J) 

PC2--SC2  ( N » J ) 

PVA=SVA(N» J) 

PVB-SVB ( N  *  J ) 

PVC=8VC<N» J) 

PAB=SAB ( N  »  J ) 

F'AO-SAC <  N »  J ) 

PBOSBC  <  N  *  J ) 

PV2"SV2(N> J) 

PB*SB <  N  f J ) 

POSC  (N,.J) 

SOLVE  FOR  3  WIND  COMPONENTS 

DELI  -  PA2*PB2*PC2  +  PAB*PBC*PAC  f  PAC*PAB*PBC 

#  -  PB2*PAC*F'AC  -  PBC*PBC*PA2  -  PC2*PAB*PAB 

UPR  =  PVA*PB2*PC2  f  PAB*PBC*PVC  t  PAC*PVB*PBC 

#  -  PVC*PB2*PAC  PBC*PBC*PVA  -  PC2*PVB*PAB 

VPR  ~  PA2*PVB*PC2  +  PVA*PBC*PAC  *  PAC#PAB*PVC 

#  -  PAC*PVB*PAC  -  PVC*PBC*PA2  -  PC2*PAB*PVA 

UPR  =  PA2*PB2*PVC  +  PAB*PVB*PAC  *  PVA*PAB*PBC 

#  -  PAC*PB2*PVA  PBC*PVB*PA2  -  PVC*PAB*PAB 

SOLVE  FOR  HORIZ  WIND  COMPONENTS  ONLY 

DEL=PB2*PC2  -  PBCKtPBC 

IF ( ADS ( DEL ) . LT . 0 . 001 )  GO  TO  52 

VPR=F'VB#PC2  -  PVC*PBC 

UPR=PB2#PVC  PBC#PVB 

UPR-0 ♦ 

DDEL-1 ./DEL 
WPR=UPR*DDEL 
VPR "VPR* DDE L 
UPR=UPR*DDEL. 

COMPUTE  ERROR  BOUNDS 

R"PV2  +  VPR*VPR*PB2  +  UPR*UPR#PC2 

t  -  2.0*VPR*PVB  -■  2.0*UPR*PVC 

#  +  2.0*VPR*UPR*PBC 

R“R*DNP 

R-DSGRT ( R ) /SORT ( ANP ) 

SIGV=-99. 
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DNOM=DSQRT  ( PB2~PB*PB*DNP ) 
IF  (  DNOM  .  GT  .  0  .  )  BI.OV=  R/I'NOM 

SIGU“--99 . 

BNOM=DSQRT < PC2-PC*PC*DNP ) 
IF  <  DNOM . GT . 0 .  )  SIGU=R/DNOM 


IDIR--0 

I F  <11 P R  .  N E  .  0  .  .  AN D  .  0  P  R  .  N  E  .  0  .  )  I D I R = A  T  AN 2  (  U P R  ,  0 P R  )  *  D P R 
IF  <  IDIR  .  I  T  .  0  )  miR=IDIR+360 
AMAG~SGRT(UPR*UPR  +  VPR*VPR> 

.1 F  (  ABB  <  WPR  )  .  BE  .  I OOO  .  )  UPR=--99  . 

I F ( ABB  <  OPR ) . BE . 1 000 .  )  VPR«-99 . 

IF  <  ABB  <  IJPR )  .BE  .  1000  .  )  UPR=~99  . 

I F  <  AMAG . BE < 1 000 , )  AMAG=-99 . 

UR  I TE  <  6 1 5 1 )  1 01...  >  I  OH  »N»  I D  IR,AMAG»  UPR  t  8 I GU » OPR  *  B I  GO ,  NP ,  DEL 

5 1  FORMAT  <  2  <  I  X » 1 3 .  3  > » 1 3 1  T 5  r  F5 . 0 » 2  <  FT, . 0 , F5 . 1 )  » IS » E 1 3.5) 

52  NUM<N.  J)=<) 

SB  <  N r  J ) =0 . 

SC <  N t J ) =0 . 

SA2 ( N , J ) =0 . 

SB2  <  N  •  J  )  •••-<) . 

SC  2  <  N » J )  -  0 . 

S02 <  N . J ) =0 . 

BOA  <  N  »  J >  =0 . 

BOB  (Nr  J)--  0. 

SOC <  N » J ) ~0 . 

BAB <  N  y  J ) =0 . 

BAG ( N i  J>“0. 

40  SBC  <  N  f J) =0 . 

47  CONTINUE 

549  continue: 


IF (NACTV.LE.O)  GO  TO  550 
ON--FK/NACTO 
OXS~OXA*ON 
OY8~OYA*ON 
550  KNCL~NCL+I.D 
KNFLsNFTA+LD 

ITLS»LD*ITL<2>  FITLCI. ) 

OUTPUT  VOLUME  SCAN  SUMMARY  TO  SORT  ROUTINE 

WRITE  < 3 )  N  IL  ,  I Tl  B » NOSCN • AZLO » AZHI . OXS » OYS t AFCS  r 

1  MFCS  t  DNN  r  DON  «  DC  A » A  7  REF  ,  1  RADAR  *  NAC'T  *  KNCL  »  NNFL  . 

2  TONE 


CLOSE  <  3 ) 

SORT  TRACK  DATA  ON \ 

1)  CONTOUR  ID 

2)  CLUSTER  ID 

3)  DATA  TYPE 

C  A  L  L  B  0  R I  (NO  S  C  N ,  J  N  P  U  T  » 1  •  1. » KEY  *  1 3 ) 
RESET  COUNTERS  FOR  NEXT  VOLUME  SCAN 
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JCL~NCL 
NU0=0 
ic  o-o 
10=0 
J0=0 
NR.JC=0 
ICL.N=J. 

FNSN=1»009 
Nil.  -NT 

SET  REFERENCE  TIME  TO  CURRENT  SCAN  TIME 


JDAY=IDAY 

JHR= IHR 

.JMIN=IMIN 

JSEOISEC 

TML=TSEC 

KTL.l..=KTL 

RETURN 

END 


I  AS 


r 


i: 


c 

c 

r 


SUBROUTINE  F IRAK 

I.  0  G  I.  C  A  I.  P  R  C  E I  I  »  P  R  S  T  G  »  PR  F  I  XL*  P  R  LI  US  «  PR!  CAM  «  P  R  HEAD  ,  F'RNCJ  i  '  >  • .  Al  I  i 

f  pr i nt  i  * rnpi  nr  .gem  ot.i oniez, coni ku» proper , 

+  COM  PL.  r 

C  H  A  R  A  c  TER*  3  F  1 1.  S  T  A  I  <  2  ) 

CHARACTER*!.!  INPIJ I 
INTEGER *2  KEY <  1  7)  ,KE  Y1  (  .12) 

I  N  T  E  G  E  R  T I. ...  ,  D  E  G  I  N  T  »  E  N  D  1  ,  B  DAY.  E  DAY 

D  I  M E N S  I  ON  I  F Cl  (  V  2 5 6  >  ,  U  C  E  X  (  I  2  8  )  ,  U  C  E  Y  (  I  >  M  . 

+  [MCI  f  53  .  460  )  .  I  WAGE  (  256  >  -  I  E  AGE.  (  25  A  >  * 

E  DA  T  (  I  2  -  25A  )  .  NI.IM  (  25A  )  .  XY  (  4  >  » 

I  CCEX125A) . CCFY ' 25  A ) 


COMM  0  N  /  F  D I R  /  I  E  C  D  I  R  (  5  1. 2  > 

C  0  MMON  /  IT  A  T  A  2  /  001  (  5  3  »  4  AO  ) 

C 0 MMUN  / P N T R S /  N 0 N  I  N  .  N 0 MX.  III  S N  .  N S C AN  *  \  E SNl.  ,  NO  SON  .  NT 
COMMON  /DAT  AS/  NCI  .  NEI.  .  JO  I  .JOTNOl  1  20  >  ,  UCX  (  25A  >  .  WCY(  25a)  « .11  I  » 

JET  N  0 2  5  A  >  ,  U I  X  <  2  5  A  )  .  W  F  Y  (  2  5  A  >  .  Li  F  (  2 5  A  )  »  1. 1  M  G  «.  2  5  6  i 

I CMG  (  I  28 1 .  I CZC (  I  20 i -  NO MM 

NO ARM ,  NC ARM  *  NOO .  NE  C* .  ICO,  10,  JO,  ,JYR  .1  HI  .Nil 


1. 


COMMON 

COMMON 

COMMON 

COMMON 

E 

COMMON 

COMMON 


/NVI. IS/ 
/NO LIT/ 
./DATA  4/ 
/EL OS/ 

/INTI.../ 

/HOC/ 


COMMON  /UFC/ 


COMMON 

COMMON 


/ZL.OOK/ 

,/KNCTR/ 


COMMON  /FARM/ 

E 

COMMON  /DECODE 


I  HR  f  I  EXE:  <  1024  i  .EITS  I 
ARM . KNIDC (  I  024) .NE  I  A 
RSCAN.PREIEAD. 


KTI.  I.  .  NKN  I  D  .  NKDO  «  I  7 Ti  l .  NKDM.X  .  I 
FCL < V . 25 A ) . A EOS . UFCS >  NE  MX  - NE 
PR  CEL  l  .  PRS IG  .  ERE  l  XC  y  PRC  I...  US  y  P 
PR NO IS. PROOF R 

MEISN  .  MNSN  .  EIM .  E  MSN  .  FNSRN  .  NCI  N  .  NE  I  N  .  M2SN  .  NMM  I  N  - 1  C  A  ' 
IJX'  512)  » I.)  Y  (  5 1  2  )  .U(:X<  120)  »UCY<  .1  28)  .UCOXC  128)  . 

I J  C  V  Y  (  .1  2  8  )  .  I.)  C  N  (  1. 2  8 )  .  U  C  2  <  .1  2  8  )  .  U  C  X  Y  (1 2  8  )  .UCX  2  (  1 2  8  )  - 
UCY2  ( 1 28  )  ,  I  CP/  ( 1 28  )  »  I  CP  NT  (  I  28  )  .  UCHS  (  1 28  )  .  IJCV  <  1  28  ) 
I C  T  K  ( 1 2  8  )  .  I C  T  K  2  <  1 2  8  )  .  I C.  T  N  0  (  1  2  8  )  ,  I C  T  S  P  (  1 2  8  ) 

ICE < 1 28 ) . ICON ( 1 28 ) , FX ( 25 A ) . E  Y ( 25 A  > .  I  OX ( 25 A ) . 

E 0 Y  < 25 A ) . FZ ( 25A ) . E  0 ( 256 ) . E  XY ( 256 ) . E X2 < 256 ) . 

FY2  (  25 A  )  .  I FPZ  (  25 A )  .  FHS  (  25 A  >  .  1 1:  SC  (  25 A  )  . 

IE  NC  (  256  )  .  I  E  ON  (  25A  >  .  IE  END  (  25A  >  .  NT  HI  •  (  25 A  ) 

JZOFF  .  ZARY  (  9 1.  )  .  RRATE  (  9 1  ) 

I  T  r  I  T l  <  2  )  .  K I.  0 L  . .  I N I  II .  JN I D  A  (  2  *  I  0 2 4  )  . 

KNIDM ( 2 ) »KN IDI  ( 1 . 1024) 

P  R I  Nil.  C  0  PLOT.  C  E  P I  0 1  .  C  0  N  I  R  7  .  C  0  N  T  R  0  .  CAE.  I  B  0  . 

NUME  .  NIIMR 

/UP  ( 9  )  .  HE  IGHT.DIONG.DI  AT 


E  Oil  rOAL  ENCE  (  FCL  (  1 .  I  >  .  1  E  CL  (  I  .  I  )  )  .  <  OCL  (  I  .  I )  » 1 00.1  (1.1)) 


SET  JNMX  TO  DIMENSION  SIZE  OF  DAT  AND  NIJM 

SFT  NCTR  TO  4X  NUMBER  OF  XY  PAIRS  I II  BE.  OUTPUT  IN  ONE  RECORD 

PARAMETER  <  RTD--5  7 . 29578 . 1  K  I  000  »  LB*  I  000  .  JNMX  ~  25 A  .  NCTR*  I  2  ) 

I)  A  T  A  I Z  E  R  0  /  0  /  .nun/  2  /  .  I  IH  R  E  I  /  /.  /  .  I  E  0  U  R  /  4  /  •  IS  E  0  E  N  /  7  / 

D  A  T  A  F  II  ST  AT  /  "NEW  .  '  Ul  D  '  /  -  I  I  II  < !  / 1  /  .  T  NET  1 1  /  MINT  R  .  S  C  R  '  / 

DATA  KEY/4 . 2  »()»/>  I  »4.2.  I .  A5  *  4 . 2 . 0  *  5  »  4  »  2 »  0  »  57  •  4  / 

DAI  A  KEY  1 / 3 .2.1.65.4. 2 . 0 . 5 .4.7,0. 5  7*4/ 


C 

NET...-/) 

IE  (NFMX.I  E  ,0)  RE.  I  URN 

IF  (KTI... .  0  T  .  KTI  I  >  UK  Al  =••  IK  /'Ml  KTI  I  ) 

C 

IF ( PRFIXC )  WRI If  (A. 1000) 

1000  FORMA!  (  IX,'  E  I  X  E  D  0  0  N  T  OU  R  Oil  I  PUT'  /  / 

1  IX,'  CENTROID  AO  CELL  Z  N  N  N  SPR  SPR  0  ' 

2  WTR  ARIA  OF LOCI TY  NEAR  MX  MR  SP ' / 

3  IX,'  IRK  E.  N.  E.  N.  AO  PK  0  S  C 


X 


l  R  ' 


4  ,  '  mix  XSCN  At1  CELL  DIST  HI  III  H  '/ 

5  IX.  '  NO  KM  KM  KM  KM  IIH  DB  C  I  I...  KM  KM  I 
A  f  MT/EI  KKM2  E M/S  NM/S  KM  KM  NO  NO') 

ZERO  COMF1  LIE:  CONTOUR  ACCUMULATORS 

NI  C '  0 
NCI  0 
NC0=0 
N  (!:)"(> 

ARi  C  O. 

UAB---0. 

LISB--0  - 
ARB-  0, 

ULH--0 . 
c  i  ~  o .. 


I  OOF  THIOIIOH  AIL  ACT  1 01  CON  I  OURS 
DO  10  1  :  I  .Ml  MX 

comfi  r  true:  , 

FO  EG  FIT  <  t  .  I  )  *1  Cl.  (  ?.  1  ) 

:i. f <  i r c i  < a . :i  > . I. t . o  . o r .  r s i o .i  t, e; c a z  >  c o met  i * . r  a l s r: . 
I  F  (  F  G  E  G  ,  t.  T  .  FCAZ  )  COMF1..  1~  .  I  A I  SI.. . 

T F I  NO <  I  ) =0 
I  2--FCI...  (  2 .  E ) 

ui  i  f  t  ci  e  s .  :r ) 

ARE  A  4  Cl  ( 1 » I. ) 

I  F  TSP "  0 
N  ST  0=0 
0FX=0, 

OF  Y=<) . 

NF0--0 
NSC-0 
SFRITt .  -0 , 

SFRDI  0. 

BPRDA--0. 

ANGC--0 . 

HE 'N-0  - 
BFB=0 • 

DOF  NO . 

DOF  S^O . 

X OF  N-0  . 

YOf  N  0 . 

D0|:  M  0 
DOF  X  -O . 


COMPUTE  A  00  CE  I  l.  OEIOCETY  ON  '  c  ON  <  UPUA  TIE  D  CELL  COUNT  I  I 


I  Ft  AO-  O 

I  f  (  IF  Cl  <  ft  f  I  >  .  I  E  .  0  ,  OR  .  F/<  I  )  .1  1.0.)  I  |  I  AO  I 
IF  (  II  I  All. t: 0,1  )  00  TO  90 
IF  i  I.F  ON  <  T  l  .1  1.0)  GO  10  12 
FNl-FN/EF  0N<  I  ) 

FOX  ( I  >  ~  FOX  <  I  >*t  N 1. 

FOYT E ) ~FOY < I >*FN1 
12  CONTI  NOE 

FN  I.  ,/JFCL  <0.1  ) 

F  0  <  E  )  -  F  O  <  I  )/E  Z<  I  ) 

I/'  I  I  IO.TAI  Ol  il  <i  ( I  /  (  E  )*FN) 


19.7 


1  Z=F'Z  ( I ) 


c 

C  TEST  IF  CONTOUR  HAS  SPLIT  FROM  ANOTHER  CONTOUR 

C  DETERMINE  BASE  CONTOUR  ID  *  USE  CONTOUR  WITH  MAX  WATER  FLUX 

C 

MF^IFCL.  <  9  *  I ) 

IF(MF.ECi.O)  GO  TO  40 

I F  <  MF .  I...E .  0 .  OR .  MF  .  GT .  JFL )  GO  TO  30 

IP=Ifl 

IF  < IP  » GT . NFMX )  GO  TO  21 
DO  20  J= IP* NFMX 
MF  1.-IFCL  <  9  *  ,J ) 

IF < MF1 . NE . MF )  GO  TO  20 

IF  ( W  F  C  .  L  T  .  F  C I ...  <  1  *  J  )  )  G  0  TO  3  0 

IF  CL.  ( 9  *  J )  1 FCL  (  9  *  J  > 

20  CONTINUE 
C 

C  COMPUTE  CONTOUR  CENTROID  VELOCITY  AND 
C  UPDATE  AGE  AND  TRACK  ID  FROM  PRIOR  SCAN 
C 

21  IFTNO <  I  >--JF TNO ( MF ) 

NF  DR (MF ) ~I 

IF ( IFTNO ( I ) . LE  .  0  )  GO  TO  41 
OF X=VNAL#  <  FCL  (3*1)  --WFX  ( MF  )  ) 

VF  Y=VKAL*  ( FCL  (4*1)  ~UFY<  MF  )  ) 

I  FACE  <  I )  -  I  WAGE.'  ( MF )  +1 
GO  TO  90 
C 

C  SPLIT*  SET  SPLIT  POINTER 
C 

30  IF ( MF  * LT ♦ 0 )  MF=--MF 

IF  v MF . LE . 0 . OR . MF . GT . JFL )  GO  TO  40 
IFTSF-JFTNO(MF) 

GO  TO  41 

40  IFTSP=0 
C 

C  NEW  CONTOUR*  INCREMENT  COUNTER  AND  UPDATE  CONTDUR  DIRECTORY 
C 

41  NFLN=NFLN+1 
IF AGE ( I )~1 
IFTNO ( I )=NFLN 
IFCDIR(NFLN>=NFLN 

IF( IFTSP.NE.O)  I FCD I R ( NFLN ) = IFTSP 
C 

C  TEST  IF  CONTOUR  HAS  MERGED  WITH  ANOTHER  CONTOUR 
C 

90  MF=IFCL.  <  7  *  I  ) 

IFMGEaO 

IF  ( MF  . LE . 0 . OR . MF . GT .  JFL  )  GO  TO  901. 

IFMGE=JFTNO(MF ) 

NFDR(MF  )--I 
901  CONTINUE 

IF  ( IFMOE  .  LE  *  0  ,  OR  .  IF'MGE .  GT  .  NF  LN )  GO  TO  92 
IFT=IFTNO(I ) 

94  IFTO=IFCDIR( IF T ) 

IF< IFTO.EO. IFT)  GO  TO  93 

IF ( IFTO »LE . 0 .OR • IFTO *GT . NFLN)  GO  TO  92 

IFT=IFT0 

GO  TO  94 


FIND  BASF  CONTOUR  ON  MAX  WATER  FLUX 

C 

93  IF  TM;  IFhOF 
96  IFTO=IFCDIR<  TFTM) 

l F  <  I F T O . E 0 .  IFIM)  G 0  1 0  9 5 
IF < IF  TO . EG  * [FT  >  GO  TO  92 
I F ( I F T  0 . L  E . 0 . 0 R , I F T  0  .  G  T  .  N  F  L  N  >  GO  TO  92 
I  FTM-’IFTO 
GO  TO  96 

95  I F C  D I R  ( I F  T  M  > I  F  T 
C 

0  FINISHED  D  I  RECT  OR Y  ENTRY 
C 

92  CONTINUE 

IF < IF TNG ( I) . E 0 . 0  >  COMF1  T». FALSE. 

c* 

C*  COMPUTE  ENCLOSED  CELL  ATTRIBUTES  (USt  NT  9  COUNT  IF) 

C# 

NFU= IF  Cl .  <  S » I ) 

IF<NFV,L.T.NNMIN>  GO  TO  65 
NFU~0 

DO  66  N~i  •  N'v'MM 

IF  <  I  MCE  ( *1 4  .  N  >  .  IT  .  1  .  OR  .  IUCL  (  44  *N>.  G  I  .3)  GO  I  0  66 

I F  ( 1 9  C  L.  (  3  7  >  N  >  .  N  E  .  I )  G  0  I  0  6  6 

NFU-NF'U+l 

UX  ( NFU )  =UCL  <  1 2 » N ) 

II Y  (  NFU  )  =UCL  (  I  4  r  N  ) 

C 

C  SAUL  UC  ENCLOSED  IN  COMPLETE  CONTOURS 
C 

IF  <  .  NOT .  COMF1..  T  )  GO  TO  66 
NCU-NCU+l 

WCX  <  NCU )  =UCL  <  1. 2 » N  > 

WCY<NCU>=UCL< 14»N> 

66  CONTINUE 
C 

0  COMFUTE  CELL  AUG  NEAREST  SPACING 
C 

IFINFU.L.T .NNMIN)  GO  TO  65 

CALL  NEARN  (  UX  >  ILr  .  NFU  r  DUFN  r  DUES  >  XU!  N  .  YUEN  ,  DUF'M  >  DUFX  ) 

C 

C  COMFUTE  AUG  CEI  L  POSITION  ON  IF CL < S . I : ( ALL  Cl  IIS  ) 

C 

65  CONTINUE 

IF  ( I  FLAG .  EO  i  1. )  GO  TO  70 
FX ( I > =FX < I ) *FN 
FY<I)=FY< I >*FN 
FXY<  I  )™F'XY  ( I  )*FN 
FX2( I )~FX2( I >*FN 
FY2(I)*FY2(I )*FN 
C 

C  COMPUTE  SPREAD  AND  MAKE  A  LINE  FIT  10  All  ENd  ll;«l  •  n  CELLS 
C 

CALL  LINFIT  (FX(  I )  „FY<  I  )  »FX2(  I  >  r  F  Y 2  <  I  )  .FXY<  I  )  .  I  Ml  (H*  I  >  . 
F  DF  X  t  DFY  .  SFRDC  -  SFRDI  »  SI  PDA »  ANGC  .  RCOI  F  ) 

C* 

C*  COMPUTE  ENCLOSED  SC  ATTRIBUTES  (USE  MF  COUNTER) 

C# 

70  CONTINUE 

IF (NFU. I  E. 3)  GO  TO  76 


1  69 


FXI=0. 

F  Y I 0  . 

FXYI=0. 

FX2I=0. 

FY2I=0. 

XFN-0 . 

YFN-O. 

OFNM-O . 

DFNX=0 . 

SPRDS-0 . 

SPDL=-0. 

spi:ia-o  . 

ANGS-O, 

69  DO  61  N“  1  *  NCI. 

IF<ICF(N)  .NF.I)  GO  TO  6.1 
NSC -NSC FI 
X-IJCX  ( N ) 

Y--UC  Y  <  N ) 

IJCFX  <  NBC )  -X 
UCFY (NSC )  =  Y 
C 

C  SUM  POSITION  DATA  FOR  LINE  FIT 
C 

FXI-FXIFX 

FYI-FYIFY 

FXYI«FXYI+X#Y 

FX2I=FX2I+X#X 

FY2I=FY2I+Y*Y 

C 

C  SAME  SC  ENCLOSED  IN  COMPLETE  CONTOURS 
C 

IF  (  *  NOT .  COMPLY )  GO  TO  6:1. 

NCS-NCB+1 
CCEX  <  NCB )  --X 
CCFY  <  NCS } ~Y 
61  CONTINUE 

IF<  NSC .  L.E  *  3 )  GO  TO  76 
FN-1 ./NSC 
C 

C  COMPUTE  MEAN  SC  POSITION  VALUES 
C 

FXI-EX1 *FN 
FYI ~FYI*FN 
F  X  Y I  -•  F  X  Y I  *  F  N 
FX2I-FX2T.*FN 
FY2I~FY2I#FN 
C 

C  COMPUTE  SPREAD  AND  MAKE  LINE  FIT  TO  ENCLOSED  SC'S 
C 

CALL  LINE IT (FXI »FYI . F X 2 1 » F Y 2 1 » F X Y I . IF  CL ( 8  > I )  * 

+  DFX »DFY  » SPRDS , SPDL . SPDA . ANGS . RCOEF ) 

C 

C  COMPUTE  SC  AUG  NEAREST  SPACING 

<:: 

IF (NSC.LT, NNMIN)  GO  TO  76 

CALL  NEARN  <  UCFX *  UCFY. NSC . DFN r  DFS . XFN . YEN . DFNM . DFNX > 
76  CONTINUE 
C 

C  PASS  FIXED  CONTOUR  DATA  SET  TO  SORT  ROUTINE 
C 


170 


I 


i 


I  F  (  J FINCH  I )  .LE.O)  GO  TO  :l.O 
NFTA= NFTA+T 
NSIG=IFNC ( I )  +  IFSC  < I ) 

K  N  S  C = N  S I G  F  1 0  0  0 

UR  I T F.  (  3  )  K  1 1  y  I Z  y  F C I  (  3  y  I  )  .  F  Cl  (  4  y  I  >  » I  U  X  <  I  >  .  F  U  f  (  I  '  . 

1  rCL  <1  y  I  )  •  F  CL  (  5  y  1  )  y  I ZERO  y  I  ZERO  y  I  /I  I :i  i  • 

2  IFMGEy IFTSP. IFAGF  (  I  >  •>  NF  U  y  I.NSC  •  II  I  NH  1  I  •  . 

3  I THREE 

c 

C  OUTPUT  CONTOUR  AND  ENCLOSED  CELT  SUMMARY 

C 

I  F ( .NOT .PRFTXC)  00  T  O  77 
IXT=FCL  (3*  T.  ) 

.1 Y  L--FCI  (4.1) 

1X2= EX < I ) 

TY2--EY  (  I  > 

IH=FHS(  t:  ) 

TORN  f ~ANGC 

UR  I  T  E  (  6  y  I  00 .1.  >  1 1  T NO  (  T  <  .  I  X  I  .  I  Y  1  .  I  X .  I  Y 2 . 1  /  y  1 1  C.  '  I  > 

T  y  IFCLCB.  T  )  .  NSIOr  IFNC(  1  )  » SPRDA y SPRDL y  TORN!  .1  (  I  <S.I>yFCl  (1  ,  I  • 

2  y  FOX ( T ) y FUY ( I ) . DOF  N . T  H . I F  MOL y 1 F I SP 
TOOT  FORMAT  <  IX  .  51 4  •  313  y  2  J!  2  y  2F  4  .  T  .  T  .5  « I  6 . 2 .  F  5 . 7 1  2I:  0  .  I  .1  4.1 .13.21^ 
r: 

C  PASS  ENCLOSED  CELL  AND  SC  ATTRIBUTES  (0  SORT 
C 

WRITE (3)  KTL . I ZERO. 

T  F  X  <  :n  y  F  Y  <  1.  )  y  0  V  F  N  .  D  U  F  S  »  A  N  00.  S  P  R  D  C  .  | 

2  EXT . FY I . DFN - DFS . ANGS . SPRDS . 

3  NFO  y  KNSC  y I I  TNO ( I )  . 

4  I FOUR 

C 

77  CONTINUE 

IF  (FSTO.GE.FCAZ  .AND.  TFT  NO  (  I  >  .  ML  .  0  >  NF  I  Nil  II. 

C* 

C*  ACCUMULATE  COMPLET  E  CONTOUR  A  I  T  R I  DU  I F  S 

C* 

T  F  (  .  NOT.  COMP  U)  GO  TO  TO 
NCONCCT  T 
F  X ( NCC ) =FCL ( 3 » I ) 

FY <  NCC ) =FCL ( 4  y  T  ) 

ARCOARCC+AREA 

UAB-UAD+UFC/ARFA 

IF  (  NSC  ,  G  T  .  0  )  WSB=WSB  FAT  0G.10  <  WFC/NSC  > 

C 

IF <  NFO . LT . NNMIN )  GO  TO  TO 
NCI ~NCI + T 
A -SORT ( AREA ) /DOF  N 
A  R  B  •••  A  R  D  4  A  I.  0  G 1  0(A> 

UFD'-UFB+AT  GOTO  (UFO 
C 

TO  CONTINUE 

C 

I  COMPUTE  COMPLET  E  i  ONTOUR  A  I I  P  I  DI  M  I S 
C 

IF  < NCI . EG . 0 )  GO  10  V 
C I “ARD/NC I 

CI=10.**CI  i 

UFB=UFB/NCI  ! 

UFB=10.**UFB  1 

9  CONTINUE  I 


I  F  (NCS.EQ.O)  GO  TO  0 
WSB  WSB/NCS 

uon  - 1.  o .  **wsb 

H  CONTINUE 

IF < NCC.GT .0)  UAB=UAB/NCC 

COMPUTE'  AUG  8P AGINGS  ON  ENCLOSED  U.  CELLS.  SC'S  AND  THE  COMP!  FIT  CUN  IP 

I I  ( N  C U . G E . N N M I N )  C A L I  N  E ARN<UCX»WCY»N C U  *  DU F  N , D U F S - 

V  XU F N  *  YUFN  *  DUFM  *  DUFX ) 

I F  (  N C  S  *  G  F  .  N  N  M I N  >  C  AI  L  N  E  A R  N  (  C C F  X  *  C C F  V  -  N C S  »  D F  N  *  D F S  » 

{  XFN  •  YEN »  DFNM  v  DFNX  ) 

IF < NCC . RE .  NN MIN )  CALL  NFARN ( FX >FY< NCC *  DON » DCS » 

I  XCN  jYCNkDCNMh dcnx » 

KNCL--NCL+LD 
KNFL-NF  ITT  D 

:  PASS  COMPLETE  CONTOUR  ATTRIBUTES  TO  SORT 

WR  I  TE  ( 3 )  KTL  *  DL.ONG » BEAT » DUFN » DFN » DCN  *  ARCC » C I  * 

I  Ul F B  *  W S B  « W A B  >  N C U  »  NCS  y  NCI »  N C C  *  K N C L  »  K N F I... » 

I  I  TWO 

:>t 

:*•  END  CONTOUR  LOOP »  PREPARE  CONTOUR  PLOTS 

:# 

If  (  .NOT. CE PLOT)  GO  TO  200 

OPEN ( UN  I T =9 »  F I l.E® I NPUT »  FORM® ' UNFORMATTED ' * 

+  STATUS-  F  II...  ST  AT  (  IF. IPS) ) 

I  F  I  IS®  2 
REWIND  9 
REWIND  B 

I  F  Of  0 

IF<  JNI'D.LE.  JNMX)  GO  TO  114 
W  R  I  I  F  (  6 . 1  I  3  )  N  U  S  C  N.  .IN  I D 

1  I  3  I  ORMA I <  IX. 'V. SCAN ' , 1 4  «  2X  » ' TOO  MANY  CONTOURS '  *  1 5 ) 

IN  ID®.  JNMX 

:  CLEAR  OUTPUT  REGISTERS  AFTER  EACH  WRITE 

114  I  o-  I 

1.  IS  DO  120  J®5 * NCTR 
DAK  Jr  ID)®~ -999. 

120  CONTINUE 
Ml  IN  (  I  n  )  .  0 

II  <  INI f . EO.l )  GO  TO  150 
i  d  riff  i 

If  <  ID. I  E. JNID)  00  TO  115 
INIT® I 

INF* 111  AN  XY  PAIR  AND  1  OOKUP  CONTOUR  BASE  ID 

1  5 0  R EAIKfM  N D ®  I  9 O  )  K N  I  D  »  K  »  X  Y 

I  f  (  K N I D .  I  E  .0.1  IR  .  K N  T  D  .  G  I  .  K N  T  DM  <  K  >  )  GO  T 0  1  50 
I.  D-;.JNIDA  <  K  •  KNI D  ) 

If  <ID.  IE. 0. OR.  ID. GT.,  JNID)  GO  TO  150 
UPDATE  OUTPUT  REGISTER  WITH  CURRENT  XY  PAIRS 
N  NIIMI  ID) 


NL-N+t 
NH--N  +  4 
J— 0 

DO  160  I~NL*NH 
J:  .1+1 

1 AO  DAT(IfID)=XY(J) 

NU«( IH)=NH 

IF  <  NH  *  L.T  .  NOTE  )  GO  TO  150 

REGISTER  FULL*  LOOK  UP  I  OW  THRESH  INCLOSING  CUN !  i  II  It-:  ID 

165  NF~0 

I  DD  KNI II 

I  F  (  K  .  G  1 .  1  )  1 0  B  K  N  I  D  I.  (  K  1  *  I D  B  - 

LOOKUP  CONTOUR  TRACK  ID  ON  CELL  DEFECTION  1111:1  Ml  I  I  OF  I  ( 

IF (KLUL.NE. 1 >  GO  TO  170 
NF'-KNIDC  (  I  DD ) 

GO  TO  1.00 

1.70  CONTINUE 

IF  <  K  «NE . KLVL )  GO  10  185 
NF  "KNI DC (KNI D) 

.180  CONTINUE 

IF ( ME , EE . 0 . OR , NF . GT  . NF MX )  GO  TO  I  75 
NF -IF  I NO (  NF  ) 

IF  (NF  .  EG  <.  0  )  GO  TO  1/5 

PASS  3  XV  PAIRS  AS  ONE  RECORD  10  SORT 

105  IDB-- JNIDA ( 1  *  IDD) 

UR  I  IE  (  9  )  KTI...  *  I  1 1  (  K  )  *  (  DAI  (  I  *  I  D  )  »  I  I  *  NC  IE  )  *  ID  *  I  DH  *  NF  *  I !. 


175  CONTINUE 

IF (IEOF-EO.l)  GO  TO  195 
GO  TO  115 

END  OF  PLOT  FILE*  PASS  REMA  I  N  ING  X  ■  PAIRS  III  SOR I 

1.90  IF  OF  =1 
K  -1 

KNI  IT-0 

195  KN  I  Il-  KNTD+.I 

I  F  ( K  N I D  .  G  I .  K  N I D  M  (  K  )  )  G  0  1 0  7  0  5 
ID -.IN  [DA  (K.  KNI  in 

I F ( I D . LE . 0 • OR  .  I D . GT  , JN I D )  GO  I  0  I  95 
IF < NUM< ID > .EE .0 )  GO  TO  195 
NUH  (ID)  ""0 
GO  TO  165 


205  KNI 0=0 
K=K  +  1 

IF(K.LE.LT)  GO  TO  195 
CLOSE ( 9 ) 

IF  (KL.OI. .  EG  .  1  )  GO  TO  910 
SORT  ON.*  1)  ENCLOSING  CON  FOUR  ID 


Kl  01  > 


I  91  IT 


I  M 


I 


2  1  CONTOUR  TRACK  ID 

3  ■  I  HR  ESN  01.  I  i  LEVEL 
4)  CONTOUR  tO 


CAM  S l » K T  <  N V S C N  •  IN P U I  » 1. » 2  y  K E  V  » 1 7  ) 

00  10  700 

i 

1  t  RACK  I  i:  D  CONTOUR  IS  BASE  ENCLOSING  CONTOUR 

;  Vi  OR  T  0N5  .1  )  CONTOUR  TRACK  ID 

r  ?)  THRESHOLD  LEVEL 

'•  3)  CONTOUR  CD 

t ' 

.  I  i  A I  I  SORT  <  NVSCim  y  INPUT  y  I  y  7. « KEY  1 ,  I  3  > 

i  + 

i  *  I  I  !  AN  UP  SPLI  T /MERGE  DIRECTORY 
i  v. 

"TOO  '  ONI  I  NHL 

III  II  I  .  i  l:  ,  0  )  00  TO  0  4 
DO  I  I  y  ,11  I 
Nl  IT  MIA  I.  > 

I  I  MO  Cl  "0 

IT  (Nl  I  I  ,  C.OR.NP ,01  .NEMX)  00  TO  05 
III  III  NIK  NT  ) 

IT  .11  I  I  L  .  0  ,  OR  ,  II  1 ,01  .  Nl  I  N  )  00  TO  85 

I I  MOL  MIT  NiH  ;i;  v 

Iff  III  ,f  II,  IT  MOL.  OR.  IT  MOL  .1  E.O)  00  10  85 

I  NX  I  --4 

I I  <  Nl  DR  (  I  )  ,  EO  .  0 )  NEDR  <  I. )  ”NE 
07  II  I  0”' IF'CtUR  (  IE  T  ) 

IT  <  I  ET  C) .  EO  <■  I  FT  )  GO  TO  88 
1 1  (  in  0  .  LE  .  0  .  OR  .  I FTO  .  GT  .  NT  LN  )  GO  TO  85 
IFT  I FTO 
GO  TO  07 
C 

i:  HAVE  ROOT  THIS  CONTOUR 

i 

HI!  HIM  .1.1  MOT 

8V  IT  TO-  CPC  DIRT  IT  TM) 

IT  <  H  I  0  .  E  d  .  IT" TM  )  GO  TO  83 
If  c  IT  IT),.  TO,  IT"  T)  OC  TO  85 
H  (  IF  TO .  I  I.  .  0  AIR  .  I  V  TO  ,  GT  .  NFL  N  )  GO  TO  85 
H  IM  II  II) 

00  10  ON 

8  II  I  Ii  HA  H  I  M  )  II-  T 
HO  CONI  I  NOT 

DO  81  NV  1 • NVMM 

IT  <  I  V  L I  <  5  3  .  N  V  )  .  F  0 . 0 . 0 R  .  I  V C I  (  3 7 »  N V  )  .  N E  ,  0  )  G 0  T U  8 1 
Ml  -  IVCL  (51  »NV  ) 

KAMI  .1.  I  .0. OR  .  Ml  . 01  .TI  L  )  GO  TO  81 
TV  Cl  (  37  y  NV  >  “-NFDR  (  MF  ) 

I  VC  I  (51 yNV)  I VC  l  (51 .NV) 

81  CONI  I  NOT 

C 

C  SAVT  POSITION.  WAT  PR  TIIIX,  A  01  AND  TRACK  ID  FOR  NEXT  SCAN 

C 

84  TIT  NT  MX 

DO  80  1  I  .Nl  MX 

.ii  i  no ( I )  -  rr  i no(  r ) 

Wl  X  n  I  f  (  I  (  3  y  I  ) 

Wf  Y(  I  >  T  C|  (  4  y  I  ) 


I 


L  74 


WF  ( I  >=FCl..<  1*1) 

I  WAGE! ( I ) -IF AGE ( I ) 
NFDR  ( I )  --0 
bo  continue: 

RETURN 

END 


'  I  II<K‘UI  I  f  |  Nl:  0  I  RAK 

I  1)1'.  I  r  A)  I  K'(  )  I  I  » I'  R  S  1  G  >  I'RF  I  XB  »  P  R  B I  U  S . P  R  S  C  A  N .  P  R  H I:  A  I) . f '  R  N  0  T  S  .  I  'ROO  I  K 
H  F  MENS. I  UN  BUX  (  1  28)  .HOY  (  128)  »  I  IK  15)  *  LI)  (JO) 

H  IMF  Mb  I  ON  I  OCI,  (  5.T »  460  >  .1)1.  IB'  1.28)  .IIKO!  <  I  88)  .  ICR  ( 128) 

ID  MENS  I  ON  XROS  ( 128)  .  YPOB(  1.28)  .  V  WAGE  ( 1.28)  .  [CAGE  <  128) 

COMMON  / 1)  A  I' A2/  001(52.460) 

COMMON  /DA  1  AS/  NCI.  ,  Nl  I  .  OCI.  ..1C  I  NO  (  128)  .UICX<256)  .WCY(2S6  )  .  .11  I  . 

1  ...IF  I  NO  <  256  )  ,  WF  X  (  256  )  .  UFY  ( 256  )  .  UF  (  256  )  . 

2  I  F  M  B  (  2  5  6  )  .  I C  M  G  ( 1 2  8  )  .  I C  7  C  ( 1 2  8  )  .  N  0  M  M 
COMMON  /NO  I  I  S  /  NO  ARM  .  N  C  A  R  M .  N  0  0  .  N  F  0  >  I  C  0 , 1 0  .  J  0  »  J  Y  R  .  I.  B  I... .  K  1 1 
COMMON  /NOI..IT/  Mi  l  .  NKNII) . NKDO .  IZTH .  NKDMX  » 1THR  .  IFXC  (  1 024  )  .1115  I 
COMMON  /DATA4/  FCL< 9.256) . ARCS . MFCS . NFMX . NF ARM . KNIHC ( 1024 ) . Ni  l  A 


COMMON  /FI.  GO/  F'RCFI  I  .  PR  GIG  .  CRT  I.XC  .  PRC  I  OS  .  PRSCAN  .  PR  HE  AD  . 

I  PRNO  I  S. PROOFR¬ 

OOM  MON  /  I.N  ri.  /  MUON  .  MM' ;N  .  MM  .  I  NGN  .  F'NSRN .  NCL.N  •  NF  1  N .  MZGN  .  NNM  I N  .  FCAZ 
COMMON  /HOC/  OX  (5.12)  .0Y(512)  .  IJCX  <  128  >  .  IJCY  ( 1.28  )  .  IJCOX  (  128)  . 
i  IJCUY  (  I  28)  »  OCM  ( 128)  .UCZ<  1.28)  .  OCX  Y(  .1.28)  .00X2(128)  . 

1  !ICY2(  128)  .  ICPZ(  1.28)  .  ICPN  T  <  128  )  .  OCHS  <  128  )  .  UCO  (  1  28)  . 

t  ICTK(  1.28)  .  ICTK2(  120)  .  ICTNCK  1  28)  »  ICTSP(  1.28) 

COMMON  /SIFC/  1  CF  (  I  28)  .  I  CON  (  128)  .FX<256)  .l'Y(256  >  .FOX  (  256  )  . 

{  F  0  Y  (  2 5  6  )  .  F  /  C  2 5 6 )  .  F 0  (  2 5 6  >  .  F  X  Y  (  2 5  6  )  » (  X  2  (  2  5  6  )  . 

f  1 Y  2 ( 2 5  6  > . I F P / ( 2  56). F M S ( 2 56). I F S C ( 2 56). 

!  I F  N  0  (  2 5  6  )  .  I F  0  N  (  2 5 6  )  .  I  F  T  N 0  (  2 5 6  )  .  N  F  D  R  (  2 5  6  ) 


FOOIOAFFNCF  (OCI.  (  1  .  1. )  .  FORK  1. .  I  )  ) 

P A  R AMI T F R ( R T D = 5  7 , 2 9  5 7 8 . F  K  =  1 0 00.) 

DATA  I D / 1  5 * 0 /  .  L. D /  .1. 0 0 0 0 . 9 * 0 /  .  I F 1 0 F  / 5 / 

NCI  IS  AC  I  I  Of  CLUSTER  COUNTER 

II  <  NCI.  .11,  0  )  RETURN 

COMPinr.  TIME  TNTFROAI.  BF TWEEN  ARRAYS 

1 1  .  K  VI.  G  I  .  K  1 1  F  )  OKA  I.  =  F  K  /  (  Ml  K  1 1  I.  ) 

l .  F  N  F  P  A  I F  SB  AIT'  R I B I J  J  E  A  R  R  A  Y  S 

HO  10  I  I  .NCI. 

OHIO.:  |  )  ::() 

licit  1  <  I  )  0 
1 1 '  R  <  .1  )  O 
1C  IN 0-  I  >  0 
1C  !  GF'  (  I.  i  0 

i  (IMF  IIH  A  OB  II  I  I  OF  I.  OB  F 1  Y  ON  F  CON  (  UPDATTED  CELL  COUNTER) 

comcii  rr  aob  iiii  position  and  reel  on  ucn<  ai  i  ci  i  is) 

ff  <  OCN(  f  )  .1  F.O.  I  >  GO  7  0  10 

nuc  i ,  /i ion  <  i ) 

I IOX  (  .1  )  =0  . 

1 10  Y  (1)0. 

It  (  rrON(  I.  )  .1  F  .0  >  GO  TO  .12 
HIM  I  IK,  I  CON  (  I.  > 

ucvx(  r )  ocux(  i  )#(uici. 

I  ICO  Y  (  t  •  "IJCOY  (  I  )*DIIC1 
1 2  ocx  < i )  urx( i )*nuc 
I  ICY  <  I  )  IJIY  (  I  )  4cm.lt 
IJCX  Y  <  I  >  HCXY'  I  )*IMIC 
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ucx2<i )=ucx2< i >*nur 

UCY2  ( I  >  =UCY2<  I  'TDUC 

ucvc  i  hucvc  i  >/uczc  1 1 

uczc i >=io.tal  oGioair/'  i  ^*nuc> 

TZVAI =ucz<  i ) 

NE=ICF< I > 

COUNT  CLUSTERS  ENCLOSED  WITHIN  EACH  CONTOUR 

IE  (  NF  .  o  r  .  0  .  AND .  NE  ,  I  I  .  Nl  MX  )  IT  NC  <  ill  <  •  I I  NC  <  Nl  ■  t  ! 

TEST  IF  CLUSTER  HAS  SIT  l  I  FROM  ANOTHER  Cl  'is  III- 
DETERMINE  BASE  CLUSTER  |li»  USE  CLUSIIR  WITH  U,V  R 

MC"~ICTK  ( I  ) 

IE  CMC.  EG,  ()>  GO  TO  40 
I F  CMC.C  E ,  0 . 0  R  .  M  C  0  I,  JIT  )  0  0  T  0  3  0 
I  ZOIC  ETC  I  ) 

IP- 1  El 

I  EC  IP.  OT  .NCI.)  GO  TO  21 
DO  20  J— :  I P  »  N C l. 

MCl-ICTK C J ) 

IE (MCI .NE.MC)  GO  TO  20 
TECIZC.L T.ICPZC J> )  GO  TO  30 
ICTKC  -ICTKC  J) 

20  CONTINUE 

UPDATE  VELOCITY  FROM  PRIOR  SCAN 
INCREMENT  AGE 

21  I CTNO (!) = JCTNO C  MC ) 

I  EC ICTNOC I ) .LE.O)  GO  TO  40 
UVX  ( I )  -  UK ALT'  (  USX  (  I  )  WCX  <  MC  )  ) 

IJVY  (  I )  --UK AL  T  (  UCY  (  I  >  WCY  <  MC  >  ) 

i  cage  c  i )  =  i  wage:  c  ml:  )  <  i 

GO  TO  101 

SPLIT  *  START  NEW  CL  USTER 

30  IE  CMC. LI. 0)  MC~  ME 

I E  (  MC  .  IT  .  0  .  OR  .  MC  .  GT  ..Id  •  GO  TO  40 
ICTSPC I )= JCTNO CMC  > 

NEW  C  L.  IJ  S  T  E  R  .  I N  C  R  E  M  E  N  I  C  HUNTER 

40  NCI.  N- NCI.  N  El 
ICTNOC  I  )=  NCI... N 
I CAGE  < I )  =  1 

SUM  ENCLOSED  CEIL  POSITION  VALUES 

101  IF  CIICNC  I )  ,L.E  .2)  00  TO  10 
MR  0 . 

RC  0 . 

sc-o. 
cc-o . 

DO  1.02  . 1“  1  *  NVMM 

IF  (  I VCL  (  3ET  *  ,J )  .  NE  .  I  .  OR  .  I VCL.  C  S3  •  .1  >  .lE.O)  GO  TO  10 
ICRC I  )-ICR<  T  )  E  .1 
sc-  SC  EVCL  <  1  2.  ,1) 


RS  1'Tturi.  <  M,J) 

<<•  In  EVCE  (  49  y  J) 

(T:  CCFVCKSOy  J) 

10?  '  ON  I  I  NHI- 

COMPUTE  i  I  II  ROTATION  AND  III  MERGENCE  ON  CLUSTERS  OF  GT  2  ( 

II  <  I  C  K  <  I  )  ,1  I:  ,2)  GO  TO  1.0 
AC  I  ,  •'  I.CK<  I.  > 

SC  :,C*AC 

XI'OSU  )  SC 

RC~KC*AC 

YPOS(  I  ■  :•  RC 

«'  RC*A< 

l  ("  COkAE 

DO  1.03  , 1  I  y  NVMO 

I  !•  (  f  V  C I  (  3 0  v  ...I  >  ..  N I :  <•  I!  »  0 R  .  I V  C  E  (  5 3  » , .1 )  .  I... E  »  0  )  GO  TO  103 
I.  VC  I  i  3.9,  1  >  I  IK  I  ) 

DC  CAR  I  (  <  VCI.  (  I  2  ,  .1 )  SC  )  *#2+  (  VCL.  <  1. 4  «  J )  - RC  )  **2  ) 

SPRIT  - SOR  T  <  (  VCI  (  49  ,  J  )  -DC  >**2+(  VCI...  (  50  ,  J  >  ™CC  )  *#2  ) 

URG  I  (  I  I  UROT  <  I )  F ATAN2  <  VCL  (12,  J  )  -SC  ,  VCI...  (  I  4  ,  J  )  -  RC  .) 

I  AT  AN  2  (  VCI.  (  49  ,  J  )  -  DC  ,  VCI...  (  50  ,  J  )  -CC ) 

UDIV(  I  )  •  (ID  IV  (  T  )  f  (  DC- SPRD  >  /  (  DC  F  SPRD ) 

103  CONI  INUE 

IJRO  111)  -UROT  (  I  )  *AC*VKAL 
UD 1  V  (  I  )  -  UII I  V  (  I  )  *AC*VKAL*2 . 0 
10  CONTINUE 
RETURN 

PREPARE:  CLUSTER  DATA  FOR  OUTPUT 

ENTRY  COUr 

I  f  (  NCI... .  I...E  ,  0  )  RET  URN 

IT  (PRC  I  US)  WRITE  (A,  .1000) 

1.000  FORMAT  (  I.X//l.Xy  •  CLUSTER  OUTPUT'// 


1. 

IX y'  CENTROID 

Z 

N 

SPR  SPR 

ORE  CNF 

f 

'■> 

,  VELOCITY  SHEAR 

MX 

MR 

SP 

CELL. 

CELL 

NO '  / 

3 

IX,'  IRK  E.  N. 

AV 

PK 

V 

X 

L 

AND  1. 1.1 

l ' 

4 

y  '  AV  CELL  MSKM 

FIT 

I D 

1  D 

ROT , 

niv. 

RD'  / 

C' 

EX.'  NO  KM  KM 

DR 

DP 

C 

KM 

KM 

DEG 

' 

6 

y  '  EM/S  NM/S 

KM 

NO 

NO 

MSKM 

MSKM 

CS '  ) 

I  OOP  THROUGH  Al  t.  ACTIVE  CLUSTERS 

DO  TOO  I  =  1  y  NCI. 
r  N  UCN ( T  ) 

IF(  IN  I  I  .0)  GO  10  1.00 

COMPUTE  SPREAD  AND  MAKE  LINE  FIT  TO  ENCLOSED  CELLS 


LAI.  L  I  I  NT  T  I  ( I ICV  ( I )  ,  LJCY  <  I  )  y  OCX  2  (  I  )  y  UCY2  (  I  )  ,  IJCXY  (  I )  y  IN  y 
f  DCX y  DC Y  y SPRD y  SPRDI  . SC y DC y  RC ) 

120  I  F  XNO  0 
Ml  -  I  I  F  (  I  ) 

I  r  (  NT  .  G  1.0,  AND  .  NF  .  IE  ,  NF  MX  )  IF  XNO=  IF  TNG  (  NT  ) 

I  CMGF-  -0 
MC  If  FK2( I  ) 

IF  (ME.  G  1,0.  AND  .  MC  .  I..E  .  ICE  )  I CMOE-JCTNO  (  MC) 
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IZ=UCZ  <  I ) 


c 

C  PASS  CLUSTER  DATA  SET  TO  SORT  ROUT  INI 

(.' 

URITE<3)  KTL.»IZ,,UCX<I>*UCY<I>,UCVX<I),UGVYi  I  >, 

1  SPRO * ucHs <  i  > , xpos <  i  > ,  yim is <  i: ) ,  be  , 1 1  mgi  , 

2  ICTSP  ( I  )  *  ICAGE:  ( I  )  .  IN,  .1(1  NO  (  I  >  ,  1 1  >  iHO 

3  i  five: 

l.,- 

IF  (  .  NOT  .  PRC L. US )  GO  TO  100 

ix=ucx  <  i  > 

IY=UCY < I ) 

IORNT--BC 
I H  'UCHS  (  I  :> 

c 

WRITE:  (6, 1001  )  ICTNO(I)  ,IX,IY,IZ,  tl'PZ  (  1  >  ,  J  N  .  SC  >  ‘  .PKDL 

1  , IORNT , IFXNQ , IJCVX ( I ) , UCVY  < I ) ,U(  V<  E ) , IN 

2  y ICMGE  y ICTSP ( I ) y  UROT < I ) ,LJDIV<  I ) , It  R<  I  ) 

1. 00 1  FORMAT  ( IX  y. 314, 31 3 , 2F  4 .1,2 1 4  y  3F  5  .  I  »  3 1 3 , 2F  /  .  7  ,1s) 

c 

too  continue: 

IF  <  JCL. .  L.E:  ,0 )  GO  TO  140 
DO  130  1=1, JCL 
NC=ICMG ( I  ) 

I F ( N C . L E-O.OR.NC. G T . N C L )  G 0  T 0  i  3 < > 

icmge:=:i:ctno(no 
130  continue: 

140  JCL.=0 

c 

c  save:  position  and  age:  for  next  scan 

c 

DO  150  1  =  1. ,  NCL 
JCTNOd  )  =  ICTNO(  I ) 

WCX  < I ) =UCX < I ) 

WCY ( I ) =UCY < I ) 

I WAGE ( I )  =  ] CAGE ( I ) 

ICZC ( I )  =  ICPZ ( I ) 

I CMG ( I ) =0 
C 

C  SEGREGATE  SIG  CELL  DATA  FROM  CLUSTER 
C 

IF < ICING <1 )  . E: 0 ♦  0 )  GO  TO  150 

JCl..= JCL+1 

OCX  < JCL ) =UCX ( I ) 

UCY ( JCL  >=UCY ( I ) 

150  CONTINUE 
RETURN 
END 


I  /V 


, 


r 


SI  JBRQI.J T  :r  Nt  Nlr'ARN  (  X  *  Y  ?  Ih  >  DNN  «  DNS  >  XNN »  YNN  *  IiNMN  >  UNMX  > 

i ' 

"  ^  ^  ^  ^  ^  ™ -  ^  /p  ^  ^  ^  ^  ^  ^  ^  Tl  ^  ^  ^  ^  *p  ^  ^  ^  fl'  ^  ^  ^  ^  ^  ^  ^  ^  ^  /p  ^  ^p  ^  »p  ^  ^  *p  ^  Ip  <p  ^ 

I  UAMI  :  NEARN 

(  i  KT)  II  f  '  T  :  ERT  B035-620  (FAA/NOAA) 

r 

I'  mclllsf  :  COMPUTE  IHt  AVERAGE  nearest  separation*  the  spread 
i  THE  AVERAGE  X  AND  Y  NEAREST  SEPARATION  AND  THE 

i;  MIN  AND  MAX  NEAREST  SEPARATION  OVER  THE  SAMPLE 

i  INPUT  THROUGH  THE  ARGUMENT  LIST. 


1 

I  l 

i  ■ 

I  t: 

r 

;.  i 

:  r, 

E 

C 

r, 

\ :. 

C 

c 

f 

c 

c 

r 

<:: 

(.; 

l; 

r 

i 

c 

r 

c 


I  N  IT  reaces: 

CAI  I  I  NO  MOD. 
CALLED  MODS. 
INPUT  PARM. 


OUTPUT  PARM. 


S I  RAK y  F I  RAK » C I  RAK 
NONE 

X  =  E-W  CENTROID  LOCATIONS  OF  INPUT  ENT I TIE 

Y  *  N  S  CENT  ROID  LOCATIONS  OF  INPUT  ENT  I  T  IE 

I M  =  NUMBER  OF  INPUT  ENTITIES 

DNN  =  AVG  NEAREST  NEIGHBOR  DISTANCE 

DNS  =  SPREAD  ABOUT  DNN 

XNN  ~  AVG  EU  NEAREST  NEIGHBOR  DISTANCE 
YNN  =  AVG  NS  NEAREST  NEIGHBOR  DISTANCE 
DNMN  =  MIN  NEAREST  SEPARAT  ION 
BNMX  =  MAX  NEAREST  SEPARATION 


COMMENTS:  SPREAD  IS  THE  STANDARD  DEV.IAT.iON  OF  THE  SET 

OF  NEAREST  SEPARATIONS  FROM  THE  AVG  NND . 


version: 
date: 
design: 
PROG MR : 


.1,0  DEC/VAX  11 
4/17/81 
RK CRANE 
GBGIJSTAEBON 


**  **  ******  *  *  ***  ****  *  **  ***  *  *  *  *  *  *****  *  ********  ******  *  Jit*)*:  *  * 

DIMENSION  XCI. )  »Y(  1) 

PARAMETER! DM =1 .EO) 

I N I T  I  AT...  T  BE  SIIMMAT I  ON  PARAMETERS 


I 

1 

j 

f 


C 

DVAR--0. 

DNS-0 . 

DA VC  -  0 . 

DNN- 0 . 

XNN -  0  . 

YNN-0 . 

DNMX-0 . 

DNMN-VVS . 

ND  0 
C 

C  I  OOP  THROUGH  ENTIRE  SAMPLE 

C 

DO  10  I  “  1  »  T  M 
DCOMP  DM 

C 

C  COMPARE  EACH  ENTITY  TO  EVERY  OTHER  ENTITY 
C 

DO  20  J--1  r  IM 
TEU.EO.,1)  GO  TO  20 
C 
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AD-A109  517 

UNCLASSIFIED 


ENVIRONMENTAL  RESEARCH  AND  TECHNOLOGY  INC  CONCORD  MA  F/G  1/ 

DETECTION  AND  TRACKING  ALGORITHM  REFINEMENT. (U) 

OCT  81  G  0  GUSTAFSON*  R  K  CRANE  DTFA01-81-Y-10521 

ERT-P-B035  F A A/RD-S1/0O  NL 


FAA/RD-81/00 


c 

<: 


COMPUTE  SEPARATION 


DX~X<  n  -X<  J) 

DY=Y< I >~Y< J> 

D2=DX*DX+DY*DY 

C 

C  FIND  MINIMUM  SEPARATION 

C 

DCOMP-AMINl ( D2 » DCOMP ) 

IF  < D2 . NE ♦ DCOMP )  GO  TO  20 
DXJ-ABS(DX) 

DYJ=ABS(DY) 

20  CONTINUE 
C 

C  SUM  MINIMUM  SEPARATION  VALUES 
C 

I F  ( DCOMP  .  OE .  DM  ,  OR .  DCOMP .  I...E .  0 .  )  GO  TO  1  0 
ND=ND+1 

DXA=SQRT< DCOMP) 

DAVG=DAVG+DXA 

DVAR-DVAR+DCOMP 

XNN=XNN+DXJ 

YNN=YNN+DY.J 

c: 

C  FIND  MAX  AND  MIN  OF  NEAREST  NEIGHBOR  DIST  FOR  SAMPLE 
C 

DNMN=AMIN1 <  DNMN  *  DXA ) 

DNMX=AMAX1 (DNMXfDXA) 

10  CONTINUE 
C 

C  COMPUTE  AUG  NEAREST  NEIGHBOR  VALUES  AND  SPREAD 
C 

IF < ND . LE ♦ 0 )  RETURN 
DN-1 ,/ND 
DNN=DAVG*DN 
XNN=XNN#DN 
YNN-YNN*DN 

DVAR=DVAR*DN~DNN*nNN 

IF  <  DVAR , GT .0  .  )  DNS-SQRT < DVAR ) 

C 

RETURN 

END 


101 


1 


SUBROUT I NE  L I NF I T  <  X  »  Y  »  X2  »  Y2 » X Y  »  N » 

P  DFX » DFY  *  SI  -RD » SPRDL.  *  SF'RDA » AN (3  *  RCOEF  ) 

name:  line it 

project:  ert  B035-620  (Faa/noaa) 

purpose:  to  fit  a  line  to  the  array  of  points  x»y.  to 

COMPUTE  THE  SPREAD »  SPREAD  ALONG  THE  LINE t  AND 
SPREAD  PERPENDICULAR  TO  THE  LINE.  TO  COMPUTE 
THE  REGRESSION  COEF  OF  THE  FIT. 


interfaces: 

LAI  LING  MOD, 
CALLED  MODS, 
INPUT  PARA. 


UU r  PUT 


FTRAK *  C IRAN 
NONE 

X  »  Y  DATA  PAIRS 
X 2 1 Y 2  SQUARE  OF  X  *  Y 
XY  PRODUCT  OF  X. Y 
N  NUMBER  OF  DATA  PAIRS 
DFX  VARIENCE  OF  X  COMP. 

DFY  OAR FENCE  OF  Y  COMP. 

SPRD  TOTAL  SPREAD 
SPRDL  SPREAD  ALONG  LINE 
SF'RDA  SPREAD  PERP  TO  LINE 
ANG  ORIENTATION  OF  LINE 
RCOEF  REGRESSION  COEF  OF  FIT 


COMMENTS:  MUST  BE  AT  LEAST  NMIN  DATA  POINTS  TO  MAKE  FIT, 


VERS I ON :  1,0  DEC/VAX  1 1 -780 

DATE:  5/18/81 

design:  rkcrane 

progmr:  gbgustafson 

*# ********* ********** 

PARAMETER ( RTD=57 . 29578 « NMINK5  *  QUAD-90 . ) 

INITIALISE  AND  COMPUTE  SPREAD 

SPRDL =0. 

SPRDA-0 . 

ANG-0 , 

RCOEF -0 , 

DEX-X2- X*X 
DFY-Y2- Y#Y 
SPRD- DF XT DFY 

IF (N.  IT. NMIN)  RETURN 

MAKE  LINE  FIT 


CF=XY--X*Y 
BFX~ATAN2(CFfDFX) 
PFY-ATAN2(DFY»CF) 
BF= ( BFX+BFY ) # . 5 
TANA=TAN<DF) 

T  ANA2-T  ANA#TANA 
ANG  -QUAD  -  DFJKRTD 
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f 


DF=DFX*DFY 

IF  <  DF  . GT .0 .  >  RCOEF=CF/SQRT  <  DF  > 

AF~Y- TANA#X 

SF-  Y2  4  AF*AF  +  TANA2*X2  +  2.  *  <AF*TANA*X  AF*Y  IAN 
SPRDA  =  SF  /  (1.  f  TANA2) 

SPRDL=SPRD-SPRDA 

IF <  SPRDL . GT . 0 . )  SPRDL=SGRT <  SPRDI  ) 

IF <  SPRDA . GT . 0 . >  SPRDA-SQRT <  SPRDA ) 

c: 

C  ADJUST  ORIENTATION  SUCH  THAT  SPRDI  IS  ALONG  MAJOR  AXIS 
C 

IF < SPRDA. LE. SPRDL >  GO  TO  10 
CF=SPRDL. 

SPRDl-SPRDA 
SPRDA=CF 
ANG= AND -QUAD 
C 

10  CONTINUE 

IF ( AND , L.T  .0.  )  ANG -ANG+3A0  . 

RETURN 

END 


% 


subroutine:  sort <n» INPUT* ITYP»IORD»KEY»KY> 


name :  sort 

project:  CRT  BO 35 “620  (EAA/NOAA) 


purpose: 


H)  SORT  THE  SCRATCH  FILE  'INPUT7 
PARAMETERS  IN  THE  KEY  ARRAY.  TO 
CONTAINING  THE  SORTED  DATA  NAMED 


ACCORDING  TO  THE 
CREATE  A  NEW  FILE 
7  OUTPUT  7  , 


interfaces: 

CALLING  MOD. 
( 'At  I  ED  MODS. 


INPUT  PARA. 


F IRAK * STRAK 

SOR*PASS  -FILES  *  SORDINI  T..SORT  »  S  0  R  $  S  O  R  T ....  MERGE . 

S  OR  $  END...  SORT 

N  VOLUME  SCAN  NUMBER*  USED  TO  LABEL  'OUTPUT7 
INPUT  NAME  OF  INPUT (UNSORTED )  DATA  FILE 
I TYP  NUMBER  OF  OUTPUT  FILES  GENERATED  EACH  SCAN 
1  OK'D  VERSION  NUMBER  ASSIGN  TO  OUTPUT  FILE 
KEY  ARRAY  CONTAINING  THE  SORT  KEY 
KY  SIZE  OF  KEY 


COMMENTS.*  OUTPUT  FILE  LABEL  MIL  BE  7S7  FOLLOWED  BY  THE 

VOLUME  SCAN  NUMBER  (IE  S003.TEM  FOR  V.SCAN  3). 

FOR  2  DIFFERENT  DATA  FILES  ALTERNATE  1  AND  2  FOR  HYP. 


version: 

date: 

design: 

PROGMR : 


1.0  DEC/VAX  11-780 
5/19/81 
GBGIJST  AESON 
GBGUSTAESON 


^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^  ^ 


INTEGER #2  KEY ( KY  ) 

INTEGER  SOR$P ASS. ...FILES  *  SORt  INIT  ...SORT  *  SOR*SORT... MERGE  > 
1  SDR# E ND ....  SORT 

CHARACTERS  STRING 
CHARACTER*!)  INPUT 
CHARACTER* 1 0  OUTPUT 
CHARACTER#*  FILE ( 2 ) 

CHARACTER# 2  0RD<2> 

DATA  FILE/7 .TEM7 *  7 .CTR7/*0RD/7  *27  *  7  *t7/*N0/0/ 


IE (N. EH. NO)  GO  TO  10 
ENCODE <3*15* STRING )  N 
15  FORMAT (I 3. 3) 

10  OUTPUT-- 7  S  7  //STRING//FILE  (  TTYP  )//ORD<  I  ORB) 
ISORT=SOR*PASS  .FILES (INPUT * OUTPUT) 

IF( .NOT. I SORT)  WRITE (6 *550)  ISORT.N 
I  SORT  ~SOR$I  N I  T...SORT  ( KEY  ) 

IF ( .NOT. I  SORT)  WRITE ( 6  *  550 )  ISORT»N 
I  SORT  =SOR*SORT.-MERGE  <  ) 

I F  < . NOT . I SORT )  WR I  T E  <  6  *  550 )  I SORT  *  N 
I  SORT -SOR*E"ND_.SORT  (  ) 

IF< .NOT. ISORT)  WRI TE ( 6  *  550 )  I SORT  * N 
50  FORMAT ( IX*  'ERROR  IN  SORT  ==7*Z8»7  ON  SCAN 7  *15) 
NO-N 
RETURN 
END 
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